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Resume 



Ce livre sur VB.Net s'adresse aux developpeurs, meme debutants, desireux de maitriser Visual Basic.NET. Apres une description de 
I'environnement de developpement (Visual Studio 2008), le lecteur decouvrira les bases de la programmation orientee objet avec VB.NET. 
II evoluera de fagon progressive vers sa mise en ceuvre avec le developpement d'applications Windows Form. Les nombreux exemples et les 
conseils sur I'utilisation des outils de debogage lui fourniront une aide precieuse pendant la realisation d'une application. 
Un chapitre consacre a I'acces aux bases de donnees a I'aide de ADO.NET 2.0 et de SQL permettra d'evoluer vers le developpement 
d'applications client-serveur. Les puissantes fonctionnalites de LINQ sont presentees et detaillees pour faciliter I'acces et la manipulation 
des donnees. Le langage XML est egalement presente permettant ainsi de faciliter I'echange d'informations avec d'autres applications. 
Les utilisateurs des versions precedentes decouvriront les nouveautes et ameliorations de cette version 2008 (types nullables, methodes 
partielles, classes anonymes, ...) leur permettant de developper encore plus rapidement et facilement des applications pour le 
framework .NET 3.5 et pour Windows Vista. 

La distribution d'une application est presentee avec I'utilisation de Windows Installer et de la technologie Click Once. 
Les exemples cites dans le livre sont en telechargement sur cette page. 



Analyste et developpeur pendant plus de 10 ans, Thierry Groussard s'est ensuite oriente vers la formation, et plus particulierement dans 
le domaine du developpement. Sa connaissance approfondie des besoins de I'entreprise et ses qualites pedagogiques rendent cet 
ouvrage particulierement adapte a I'apprentissage et a la mise en pratique du developpement sous VB.NET 2008. 



Ce livre numerique a ete congu et est diffuse dans le respect des droits d'auteur. Toutes les marques citees ont ete deposees par leur editeur respectif. La loi du 11 
Mars 1957 n'autorisant aux termes des alineas 2 et 3 de /'article 41, d'une part, que les "copies ou reproductions strictement reservees a I' usage prive du copiste et non 
destinees a une utilisation collective", et, d 'autre part, que les analyses et les courtes citations dans un but d'exemple et d'illustration, "toute representation ou 
reproduction integrate, ou partielle, faite sans le consentement de I'auteur ou de ses ay ants droit ou ay ant cause, est illicite" (alinea 1er de I' article 40). Cette 
representation ou reproduction, par quelque procede que ce soit, constituerait done une contrefagon sanctionnee par les articles 425 et suivants du Code Penal. 
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Introduction 



La plate-forme .NET fournit un ensemble de technologies et d'outils facilitant le developpement d'applications et propose 
une solution pour pratiquement tous les types d'applications : 

• applications Windows classiques ; 

• application Web ; 

• services Windows ; 

• services Web. 

Tous ces types d'applications sont realisables grace a un element essentiel : le Framework .NET. Ce Framework prend en 
charge, par I'intermediaire de nombreuses couches logicielles superposees, I'integralite de la vie d'une application, du 
developpement jusqu'a I'execution. Le framework doit etre heberge par un systeme d'exploitation avec lequel il va 
interagir. Le premier systeme permettant de raccueillir est bien sur Windows mais d'autres versions sont disponibles 
permettant I'adaptation de la plate-forme .NET a des systemes tels Linux ou Unix. 




Le framework contient deux elements principaux : le Common Language Runtime et la bibliotheque de classes du .NET 
Framework. 

Le Common Language Runtime est la base du .NET Framework. Le runtime peut etre considere comme un moteur 
d'execution qui gere I'execution du code et assure egalement la gestion de la memoire. Le code pris en charge par le 
Common language Runtime est appele code manage. 

La bibliotheque de classes est un ensemble de classes pouvant etre utilise pour le developpement de tout type 
d'application. Nous le manipulerons tout au long de cet ouvrage. 



1. Principe de fonctionnement du Common Language Runtime 

Dans les applications Windows traditionnelles, le systeme prend directement en charge I'execution du code. En effet, 
celui-ci est genere par le compilateur associe au langage de programmation utilise pour la conception de I'application. 
Le resultat de cette compilation correspond a un fichier binaire contenant le code specifique pour le microprocesseur et 
le systeme d'exploitation avec lesquels I'application doit fonctionner. Aucune compatibility avec un autre type de 
microprocesseur ou systeme d'exploitation n'est possible. Pour s'en convaincre, il suffit de tenter I'execution d'une 
application prevue pour Windows sur un systeme Linux pour verifier cette incompatibility. Si Ton tente I'execution sur 
une station de travail SUN, qui utilise un type de microprocesseur radicalement different, le resultat est identique. La 
solution pour s'affranchir de ces problemes consiste a generer a la compilation, non pas un code specifique, mais un 
code generique, independant de toute plate-forme logicielle ou materielle. Ce code est, au moment de I'execution, 
confie a une machine virtuelle qui en assure I'execution. Ce code s'appelle Microsoft Intermediate Language (MSIL). 
Lors de I'execution de I'application, ce code est pris en charge par la machine virtuelle qui en assure la traduction en 



© ENI Editions - All rigths reserved 



- 1 - 



instructions specifiques pour le microprocesseur de la machine. Cette traduction n'est pas effectuee, en bloc des le 
debut de I'application, mais uniquement au fur et a mesure des besoins. En effet, pourquoi perdre du temps a traduire 
du code MSIL, s'il n'est jamais utilise par la suite. C'est pour cette raison que le compilateur utilise pour cette traduction 
s'appelle compilateur Just In Time (JIT). 

Les avantages de cette solution sont evidents car pour executer une meme application sur plusieurs plates-formes 
materielles et ou logicielles, il suffit d'obtenir la machine virtuelle capable d'effectuer la traduction. Cette machine 
virtuelle est disponible pour tous les systemes Microsoft. Le projet Mono propose une version de la machine virtuelle 
pour les plates-formes suivantes : 

• Linux 

• Mac OS X 

• Sun Solaris 

• BSD - OpenBSD, FreeBSD, NetBSD 

Elles sont disponibles en telechargement sur le site http://www.mono-project.com 
Le schema suivant reprend I'ensemble de ces operations : 
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2. Les services du Common Language Runtime 

La machine virtuelle ne se contente pas d'effectuer la traduction du code. Le code MSIL est aussi appele code manage, 
ce qui sous-entend qu'un certain nombre d'operations supplementaires seront realisees sur le code au moment de 
I'execution. La figure ci-apres reprend I'ensemble des fonctionnalites disponibles dans le Common Language Runtime. 



■ 



Base Class Library Support 



^^Thread Suppor^^^ 


COM Marshalei^^^ 
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Exception Manager ^ 


^^^Security Engine 
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IL to Native 
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Class Loader 



II gere le chargement en memoire des instances de classes, 
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IL To Native Compilers 

II convertit le code intermedia ire (MSIL) en code natif. 

Code Manager 

II gere I'execution du code. 

Garbage Collector 

II assure la gestion de la memoire en surveillant les instances de classes qui ne sont plus accessibles. 
Security Engine 

II permet la verification de I'identite de la personne demandant I'execution du code et accepte ou non cette execution, 
en fonction des autorisations accordees. 

Debug Engine 

II permet le debogage de I'application, en prenant en charge par exemple I'execution en pas a pas du code. 
Type Checker 

II surveille I'utilisation de variables non initialisers et les conversions entre des variables de type different. 
Exception Manager 

II fournit la gestion structuree des exceptions en liaison avec Windows Structured Exception Handling (SEH). Cette 
technique permet une gestion individuelle de chaque exception plutot qu'une gestion globale. 

Thread Support 

II propose un ensemble de classes permettant la realisation d'applications multithread. 
COM Marshaler 

II permet de traduire des appels vers des composants COM, assurant par exemple la conversion des types de 
donnees. 

Base Class Library Support 

II fournit I'acces aux services disponibles sur le systeme d'exploitation note. 



3. La Base Class Library 



Le Framework .NET met a la disposition des developpeurs un ensemble d'outils lui permettant d'obtenir une solution 
rapide a une majorite de problemes rencontres lors de la realisation d'une application. 

Ces outils sont disponibles sous forme de classes. A I'inverse des bibliotheques de code des langages de la generation 
precedente, qui n'etaient qu'une liste interminable de procedures ou fonctions, la bibliotheque de classes est 
organisee sous forme d'une structure hierarchisee. L'element essentiel de cette hierarchisation est I'espace de nom 
(Namespace). II permet le regroupement logique de classes ayant des points communs. Par exemple, on retrouve dans 
le namespace System. Data toutes les classes utilisables pour acceder a une base de donnees. 

Cette bibliotheque de classes est bien sur independante d'un quelconque langage de programmation. El le permet done 
le melange de differents langages au cours du developpement d'une application. El le est egalement parfaitement 
integree a Visual Studio, ce qui nous procure un confort d'utilisation appreciable avec des outils comme Intelissence. 
Comme cette librairie est orientee objet, elle est facilement extensible par le biais de relations d'heritage. 

La bibliotheque contient une quantite impressionnante d'espaces de nom et de classe, tant et si bien que, au cours de 
vos developpements avec Visual Basic, il y a de fortes chances pour que vous n'utilisiez jamais certains d'entre eux. 

Les espaces de noms les plus utilises sont les suivants : 

System 
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C'est I'espace de nom racine pour les types de donnees dans le Framework .NET. II contient notamment la definition de 
la classe Object, qui est I'ancetre de tous les types de donnees du Framework .NET. 

System. Windows 

II contient I'ensemble des elements permettant la creation d'interfaces utilisateurs Windows. 
System. Web 

II contient toutes les ressources necessaires pour la creation d'applications Web, avec par exemple, les classes de la 
technologie ASP.NET ou les classes utilisables pour la creation de services Web XML. 

System, data 

II contient un ensemble de classes specialisees dans I'acces aux bases de donnees, avec le support de ADO.NET. 
System. Xm I 

Le langage Xml est devenu omnipresent et cet espace de nom contient les classes assurant la manipulation de 
documents Xml. 



4. Les versions et evolutions de la plate-forme .NET 

La premiere version (1.0) de la plate-forme .NET sort en janvier 2002 avec Visual Studio 2002. Cette version est 
rapidement remplacee par la version 1.1 qui corrige quelques petits problemes de jeunesse de la version precedente 
et ajoute des technologies qui n'etaient auparavant disponibles qu'en tant qu'installations independantes et sont 
desormais incluses. Les apports de cette version sont principalement : 

• Les Controles mobiles ASP.NET (anciennement Microsoft Mobile Internet Toolkit) qui etendent le Framework .NET 

par la prise en charge des peripheriques mobiles (sans fil) tels que telephones portables et assistants 
numeriques personnels. 

• Le fournisseur de donnees .NET Framework pour ODBC et le fournisseur de donnees pour Oracle qui 
auparavant n'etaient disponibles que par telechargement, sont desormais livres avec le .NET Framework. 

• La prise en charge de la nouvelle mise a jour du protocole Internet couramment appelee IP version 6 ou plus 

simplement IPv6. Ce protocole est congu pour augmenter sensiblement I'espace d'adressage qui est utilise 
pour identifier les points d'entree de communication d'Internet. 

El le est disponible avec la version 2003 de Visual Studio en avril 2003. 

II faut attendre novembre 2005 pour voir arriver la version 2.0 associee a la sortie de Visual Studio 2005. Cette version 
apporte de nombreuses ameliorations : 

• La prise en charge de la nouvelle generation d'ordinateurs 64 bits permettant la creation d'applications plus 
performantes. 

• Une evolution majeure dans I'acces aux bases de donnees avec ADO.NET 2.0 ameliorant I'utilisation de XML. 

• Le developpement d'applications Web est egalement de plus en plus facile avec la nouvelle version de ASP.NET 
proposant une multitude de nouveaux controles. 

• L'utilisation de la classe Console est optimisee avec I'ajout de nouvelles proprietes et methodes (gestion des 
couleurs, effacement, position du curseur...)- 

• Le .NET Framework 2.0 reintroduit la fonctionnalite Modifier & Continuer permettant a I'utilisateur qui debogue 

une application dans Visual Studio de modifier le code source en mode arret. Une fois les modifications du code 
source appliquees, I'utilisateur peut reprendre I'execution du code et observer I'effet. 

• L'apparition de la notion de generique qui permet aux classes, structures, interfaces, methodes et delegues 

d'etre declares et definis avec des parametres de type non specifie ou generique au lieu de types specifiques. 
Les types reels sont specifies ulterieurement lors de l'utilisation. 
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La version 3.0 arrive en novembre 2006 et apporte de nouvelles technologies tout en restant a la base une version 
2.0. Ces technologies sont disponibles sous forme de telechargements qui viennent s'integrer au framework 2.0. Voici 
un bref apergu de ces nouveautes : 



• Windows Presentation Foundation (WPF) represente le nouveau systeme d'interfaces graphiques. II se base sur 

un moteur de rendu vectoriel et permet une separation plus claire entre la definition de I'interface graphique 
d'une application et son code. II utilise pour cela le langage XAML {extensible Application Markup Language). Les 
taches peuvent ainsi etre plus facilement reparties entre designers et developpeurs. 

• Windows Communication Foundation (WCF) constitue la nouvelle base de developpement d'applications 

distributes. II facilite la communication entre applications en ajoutant une couche d'abstraction uniformisant les 
techniques de communication entre applications (Services Web, .NET Remoting, Microsoft Transaction Server, et 
Microsoft Message Queuing,...). 

• Windows Workflow Foundation (WF) est compose d'un modele de programmation, d'un moteur d'execution et 

d'outils pour integrer des workflows dans une application. Un workflow peut etre defini comme un ensemble 
d'actions ou etapes s'executant dans un ordre predefini. Ces actions peuvent s'enchainer en fonction de 
conditions, d'interactions avec des processus informatiques ou en fonction d'interactions humaines. 

• Windows Cardspace fournit une nouvelle technique aux utilisateurs pour s'identifier dans une application. El le a 
la meme vocation que Microsoft Passport mais n'est pas specifique aux applications Microsoft (Hotmail, MSDN...). 
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Ecriture, compilation et execution d'une application 



Dans ce chapitre nous allons detainer le cycle de vie d'une application, depuis la redaction du code jusqu'a I'execution de 
rapplication, en etudiant en detail les mecanismes mis en ceuvre. 



1. Ecriture du code 

L'immense majorite des applications sont developpees grace a un environnement integre qui regroupe les principaux 
outils necessaires, a savoir : 

• un editeur de texte ; 

• un compilateur ; 

• un debogueur. 

Cette approche est de loin la plus confortable. El le necessite cependant une petite phase d'apprentissage pour se 
familiariser avec I'outil. Pour notre premiere application, nous allons utiliser une demarche un petit peu differente 
puisque nous allons utiliser des outils individuels : le bloc-notes de Windows pour I'ecriture du code et le compilateur 
en ligne de commandes pour Visual Basic. 

Notre premiere application sera tres simple puisqu'elle affichera simplement le message "Bonjour" dans une fenetre de 
commande. 

Voici le code de notre premiere application que nous allons ensuite expliquer ligne par ligne. II est a saisir a I'aide du 
bloc-notes de Windows ou de tout autre editeur de texte, a condition que celui-ci ne rajoute pas de code de mise en 
page a I'interieur du document, comme le font par exemple les logiciels de traitement de texte. 

Exemple 



Imports System 

public Module test 

dim message as string="bon jour " 
public sub main () 

console . writeline (message) 
end sub 
end module 



Ce code est a sauvegarder dans un fichier portant I'extension .vb. Cette extension n'est pas obligatoire, mais elle 
permet de respecter les conventions utilisees par Visual Studio. Detaillons maintenant les quelques lignes de notre 
premiere application. 

Imports System 

Cette ligne permet de rendre directement accessibles les elements presents dans le namespace System. Sans elle, il 
faudrait utiliser les noms pleinement qualifies pour tous les elements contenus dans le namespace. Dans notre cas, 

nous devrions alors Utiliser : System. Console .writeline ("Bon jour") 
public Module test . . . end module 

Dans Visual Basic, toute portion de code doit etre contenue dans un module ou une classe. 

dim message as string="bon jour " 

Cette ligne declare une variable. Toutes les variables doivent etre declarees avant de pouvoir etre utilisees. La 
declaration permet de specifier le type d'information que la variable va contenir, ici une chaine de caracteres, et 
eventuellement une valeur initiale, "bonjour" dans notre cas. 

public sub Main() . . . end sub 

Toutes les instructions autres que des declarations doivent etre placees dans une procedure ou une fonction. La 
majeure partie du code est done placee entre les instructions Sub et End Sub ou Function et End Function. Parmi toutes 
ces procedures et fonctions, Tune d'entre elles est designee comme le point d'entree dans 1'application. C'est par 
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I'execution de cette procedure que demarre l'application. Cette procedure doit etre publique et doit s'appeler Main. 



Console . write line ( "Bon jour" ) 



La classe Console definie dans I'espace de nom System fournit un ensemble de methodes permettant I'affichage 
d'informations sur la console ou la lecture d'informations depuis la console. La procedure writeline permet I'affichage 
d'une chaine de caracteres sur la console. 



A noter egalement que Visual Basic ne fait pas de distinction entre les minuscules et les majuscules dans les 
instructions. Si vous utilisez I'editeur de Visual Studio pour rediger votre code, celui-ci fera automatiquement les 
modifications pour uniformiser Torthographe" de votre code. 



2. Compilation du code 



Le Framework .NET inclut un compilateur en ligne de commande pour Visual Basic. Pour compiler le code source de 
notre exemple, nous devons ouvrir une fenetre de commande DOS pour pouvoir lancer le compilateur. Pour cela, un 
raccourci a ete cree dans le menu demarrer pendant 1'installation. Ce raccourci lance I'execution d'un fichier .bat qui 
positionne certaines variables d'environnement necessaires pour le bon fonctionnement des outils Visual Studio en 
ligne de commande. 
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A partir de la fenetre de commande ouverte, il convient de se placer dans le repertoire dans lequel se trouve le fichier 
source. 

La compilation est lancee par la commande vbc Bonjour.vb. 

Apres un bref instant, le compilateur nous rend la main. Nous pouvons verifier la presence du fichier executable et 
verifier son bon fonctionnement. 
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Notre premiere application est vraiment tres simple. Pour des applications plus evoluees, il sera parfois utile de 
specifier certaines options pour le fonctionnement du compilateur. L'ensemble des options disponibles peut etre 
obtenu en langant la commande vbc / ?. 

Les principales options sont : 

/ out : f ichier . exe 

Cette option permet de specifier le nom du fichier resultat de la compilation. Par defaut, c'est le nom du fichier source 
en cours de compilation qui est utilise. 

/target : exe 

Cette option demande au compilateur la generation d'un fichier executable pour une application en mode console. 

/target :winexe 

Cette option demande au compilateur la generation d'un fichier executable d'application Windows. 

/target : library 

Cette option demande au compilateur la generation d'un fichier bibliotheque dll. 

/reference :liste de fichiers 

Cette option indique au compilateur la liste des fichiers references dans le code et necessaires pour la compilation. Les 
noms des fichiers doivent etre separes par une virgule. 

3. Analyse d'un fichier compile 

Maintenant que notre fichier executable est cree, essayons de voir ce qu'il contient. 
Premiere solution : I'ouvrir avec le bloc-notes de Windows 
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D D eO 

mscorlib Mi crosoft . vi sualBasi c MyApplicati on My Mycomputer Myproject 
Mywebservi ces Threadsaf eob;ject Provider '1 test 

Mi crosoft . vi sualBasi c. Applicati onservices Applicati onBase . ctor 
Mi crosoft . vi sualBasi c. Devices computer system object get ^computer 
m.computerobject Provider ger^ppli cation m^Appob] act Provider user 
get„user m„userobject Provider get„webser vices 

m_Myi?/ebser vi cesob] ectProvi der . cctor Application webservices Equals o 



Le resultat n'est pas tres parlant, e'est le moins que Ton puisse dire ! 

Nous avons dit que le compilateur genere du code MSIL. C'est done ce code que nous visualisons dans le bloc-notes. 
Pour visualiser le contenu d'un fichier MSIL, le framework .NET propose un outil plus adapte. 

Deuxieme solution : utiliser un desassembleur 

Cet outil est lance a partir de la ligne de commande par I'instructioniidasm. 

II permet de visualiser, de maniere plus claire que le bloc-notes, un fichier genere par le compilateur. II convient 
d'indiquer le fichier que Ton souhaite examiner, par le menu Fichier - Ouvrir. Le desassembleur affiche alors son 
contenu. 



C:U>DciimenCs and SetlinE*\t&rousMrdUAe 5 dDcumenEs\livfe vb.nel ZQOBftchityilr* - IL OASM 



Fijiiaf Afficher ? 



B-1 ▼ 

f MANIFEST 
i 9 My 
4 M TtiL 



1. 1 



Les informations presentes dans le fichier peuvent etre separees en deux categories : le manifest et le code MSIL. Le 
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manifest contient les metadonnees permettant de decrire le contenu du fichier et les ressources dont il a besoin. On 
parle dans ce cas de fichier auto descriptif. Cette technique est tres interessante car des que le Common Language 
Runtime lit le fichier, il dispose de toutes les informations necessaires pour son execution. 

II n'y a plus besoin d'avoir recours a un enregistrement dans le registre de la machine. Le manifest peut etre visualise 
par un double die sur son nom. 



/ HAMMST 



tt *»U*+\+ vrrs-inn; m?-B-}H?1V 

.ji-srpfrly t>:t f-rn nscDfllb 

.publEfUtyt-bkim - ihl ?A it U 1D 31 FA 34 > 
.M*r 2z 3 : Q : Q 

^ 

.mtWblf tKtM Ti lUcMDsaft.UJ-siialAasic 

.publicist ok^n - CBt 3F W IF 1 1 DE H jA > 

^ 

■! 

.putrtEtM^tDkl-n - H B7 ?fi 44 15 3* E* 34 > 

^ 



-iiuitofi SfivturiLL- uaLd I wc« ki^l&jj&tc-ii.nuntLM'.Cc to ij ^rStruicc-s -Cop^h I ait j dhRd] AKACian-sAttrtoutr-! ■ . LfeAKiintaa ) ■ ( U1 44 HI 41 C'li uu flfl ] 

-■Jb-r UJLI!U!U 

> 

.ranluLp I if nji] I 1 . mkm 

WJ [D : (*F[SEEfia-Hflir-*D6?-*f W-Fft6JEaaiBlflDJ 
, ]n.jq ? ri^ :.* DvDnbBd4ia 

.Fil#- AkEfbJH-nt tirfqziPrtAA 

.■suD-^ysiPii UkUUu:i yy wekc-du^ i:iii 

-caKf L-j-j-s D>caaa444*i yy hl*hiy~ 
yy r^sr ; a^aim 4 Baa 



Nous retrouvons dans ce manifest des informations indiquant que, pour que I'application puisse fonctionner, elle a 
besoin des assemblages externes mscorlib, Microsoft. VisualBasic et System. 

La deuxieme partie correspond reellement au code MSIL. Un ensemble d'icones est utilise pour faciliter la visualisation 
des informations. 



Symbole 


Signification 


► 


Plus d'infos 


w 


Espace de noms 


E 


Classe 




Interface 


J 


Classe de valeurs 




Enumeration 


■ 


Methode 


■ 


Methode statique 


♦ 


Champ 


♦ 


Champ statique 


▼ 


evenement 
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A 


Propriete 




element de manifeste ou d'infos de classe 



Comme pour le manifest, un double die sur un element permet d'obtenir plus de details. Ainsi, nous pouvons, par 
exemple, visualiser la traduction de notre procedure main. 



| / t«£b:metlud ma 


Im void() 




-| D |xf 





e Rethod public static void nairtt ) cil nanagerf 



-entry point 

.custom instance uniri [nscor)lib]Sy&ten_STHThrpadflttrib[ite : : .ctnr( ) - ( m tin Uil flfl ) 
// code size 11 (0Kb) 

I L 60GB : ldstr "Banjuur" 

lL_00fl&: call void [nscoi'lib]S^sten. Console : :V?riteLinefsti'ing) 

IL_e00a: ret 

> // end of method test::nain 



Dans un exemple de code aussi simple, il est facile de faire la correspondance entre le code Visual Basic et sa 
traduction en code MSIL. Pour les personnes enthousiasmees par le code MSIL, il existe un assembleur MSIL : iiasm. 
Cet outil attend un fichier texte contenant du code MSIL et le transforme en format binaire. 

Puisque nous sommes capables de visualiser le code MSIL, nous pouvons verifier qu'il est bien independant du langage 
source utilise pour developper I'application. Voici done le code C# qui realise la meme chose que notre code Visual 
Basic. 



using System; 

class Program 
{ 

static String message = "Bonjour"; 
static void Main ( string [ ] args) 
{ 

Console . WriteLine (message) ; 

} 

} 



Apres compilation et desassemblage par iidasm, voici ce qu'il nous presente pour la methode Main. 



I / e>cempleCs.Program::method Mam : Yoid(sf riinO 








Find Find Ms*t 



.nethod private hidebijsig static uoitf Main(string[] args) cil managed 
.entrypnint 

// Cade size 13 (Oxd) 

.max stack 8 
IL 0900: nop 
IL^09&1 : ldstr 
I L" 03 06: call 
IL_Ofl0b; nop 
ILOflffc: ret 
> // end of method Progran t :Kain 



"Bonjour" 

Moid [ mscor lib ] System .Console : : WriteLine (string) 



II n'y a aucune difference par rapport a la version Visual Basic de la methode Main. 

II est egalement possible de faire la demarche inverse en transformant un fichier texte contenant du code MSIL en 
fichier binaire correspondant. Cette transformation se fait grace a I'assembleur ilasm. La seule difficulty est de creer un 
fichier texte contenant le code MSIL car meme si la syntaxe est comprehensible, elle n'est pas tres intuitive. Une 
solution peut etre de demander a I'outil iidasm (le desassembleur) de generer ce fichier texte. Pour cela apres, avoir 
ouvert le fichier executable ou la bibliotheque dll avec iidasm, vous devez utiliser I'option Dump du menu Fichier. Vous 
etes alors invite a choisir le nom du fichier a qenerer (extension .il). 
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Ce fichier peut etre ensuite modifie avec un simple editeur de texte. Remplacez par exemple le contenu de la variable 
message avec la chaine "Hello". 



method private hidebysig specialname rt specialname static 
void . cctor() cil managed 

{ 

// Code size 11 (Oxb) 

.maxstack 8 

IL_0000: ldstr "Hello" 

IL_0005: stsfld string Program: :message 

IL_000a: ret 
} // end of method Program ::. cctor 



Sauvegardez ensuite le fichier. II ne reste plus maintenant qu'a regenerer le fichier executable grace a I'assembleur 
ilasm. Saisissez pour cela la ligne de commande suivante : 



ilasm Bonjour.il / output =He 1 1 o . exe 



L'option /output=Heiio permet d'indiquer le nom du fichier genere. Si cette option n'est pas specifiee c'est le nom du 
fichier source qui sera utilise. Vous pouvez maintenant lancer le nouvel executable et verifier le message affiche. 
Toutes ces manipulations peuvent se faire sur n'importe quel fichier executable ou bibliotheque dll. La seule difficulty 
reside dans le volume d'informations fourni par la decompilation. Ceci pose cependant un probleme : toute personne 
disposant des fichiers executables ou bibliotheques dll d'une application peut modifier I'application. Certes les 
modifications risquent d'etre perilleuses mais la modification d'une valeur representant une information importante 
pour 1'application (mot de passe, cle de licence...) est envisageable. Une parade possible a ce genre de manipulation 
consiste a rendre le code genere par le decompilateur le plus incomprehensible possible. Pour cela, il faut agir au 
niveau du fichier executable ou de la bibliotheque dll en modifiant les informations qu'ils contiennent sans, bien sur, en 
perturber le fonctionnement. Des outils appeles obfuscateurs sont capables de realiser cette operation. Visual Studio 
est fourni avec un outil de la societe PreEmptive Solutions appele DotFuscator Community Edition. Cette version permet 
de realiser les operations de base pour "embrouiller" un fichier. Le principal traitement effectue sur le fichier consiste a 
renommer les identifiants contenus dans le fichier (nom des variables, nom des procedures et fonctions...) avec des 
valeurs tres peu explicites, en general un caractere unique. Voici un extrait de la decompilation du fichier Bonjour.exe 
apres traitement par Dofuscator Community Edition. 



{ 



class private auto ansi bef oref ieldinit a 
extends [mscorlib] System. Ob ject 

.field private static string a 

.method private hidebysig static void a (string [] A_0) cil managed 
{ 

. entrypoint 

// Code size 13 (Oxd) 

.maxstack 8 



IL_00 0 0 
IL_00 01 
IL_00 0 6 
IL_000b 
IL 000c 



nop 

ldsfld string a::a 

call void [mscorlib] System. Console : :WriteLine (string) 

nop 

ret 



} // end of method a::a 



.method public hidebysig specialname rt specialname 
instance void . ctor () cil managed 

{ 

// Code size 7 (0x7) 

.maxstack 8 
IL_0000: ldarg.O 

IL_0001: call instance void [mscorlib] System. Ob ject ::. ctor ( ) 

IL_0006: ret 
} // end of method a:: .ctor 



.method private hidebysig specialname rt specialname static 
void . cctor () cil managed 

{ 

// Code size 11 (Oxb) 

.maxstack 8 

IL_0000: ldstr "Bon jour" 

IL_0005: stsfld string a::a 

IL 000a: ret 
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} // end of method a:: .cctor 
} // end of class a 



Dans ce fichier plus aucune trace des noms utilises dans le code. La procedure main s'appelle maintenant 'a', la 
variable message s'appelle maintenant 'a' aussi. Imaginez le resultat d'un tel traitement sur un fichier contenant 
plusieurs dizaines de variables et procedures ! 

La version Professional Edition permet egalement le cryptage des chaines des caracteres, la modification et I'ajout de 
code inutile pour complexifier les structures de controles (boucles, conditions...). 

Ci-dessous un exemple de transformation extrait de la documentation de Dotfuscator. 

Le code original : 



public int CompareTo (Ob ject o) 
{ 

int n = occurrences - ( (WordOccurrence) o) .occurrences; 
if (n == 0) 
{ 

n = String . Compare (word, ( (WordOccurrence) o) . word) ; 
} 

return (n) ; 
} 



Le code genere : 



public virtual int _a (Object A_0) { 
int localO; 
int locall; 

localO = this. a - (c) A_0.a; 

if (localO != 0) goto iO; 

goto il; 

while (true) { 

return locall; 

iO: locall = localO; 

} 

il: localO = System . String . Compare (this . b, (c) A_0.b); 

goto iO; 

} 



L'analyse de milliers de lignes de code de ce type risque de provoquer quelques migraines ! II est done preferable de 
conserver le code source original pour les modifications ulterieures. Plus d'informations sont disponibles sur le site 
http://www.preemptive.com/. 



4. Execution du code 

Lorsqu'un utilisateur execute une application managee, le chargeur de code du systeme d'exploitation charge le 
Common Language Runtime qui ensuite demarre I'execution du code manage. Comme le processeur de la machine sur 
laquelle s'execute I'application ne peut pas prendre en charge directement le code MSIL, Le Common Language 
Runtime doit le convertir en code natif. 

Cette conversion ne concerne pas la totalite du code au chargement de I'application. II convertit le code au fur et a 
mesure des besoins. La demarche adoptee est la suivante : 

• Au chargement d'une classe, le Common Language Runtime remplace chaque methode de la classe par un 
morceau de code demandant au compilateur JIT de le compiler en langage natif. 

• Par la suite, lorsque la methode est utilisee dans le code, la portion de code generee au chargement entre en 
action et compile en code natif la methode. 

• Le morceau de code demandant la compilation de la methode est ensuite remplace par le code natif genere. 

• Les futurs appels de cette methode se feront directement sur le code natif genere. 
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Evolution de Visual Basic 1 a Visual Basic .NET 2008 



Depuis la version 1.0, sortie en 1991, jusqu'a la version 6.0, sortie en 1998, Visual Basic a subi de nombreuses 
evolutions. Visual Basic fut congu a I'origine comme un langage simple permettant de developper rapidement une 
application sous Windows (comme le permettait GWBASIC sous MS-DOS). Cette simplicity d'uti lisation repose en grande 
partie sur I'environnement de developpement, qui masque les taches fastidieuses de la creation d'une application sous 
Windows. 

De la version 1.0 a la version 3.0, on n'assiste a aucune revolution dans VB mais a des evolutions classiques pour un 
langage de programmation. 

Avec I'apparition de la version 4.0 en 1996, VB entre dans la cour des grands avec une multitude devolutions : 

• possibility de creer des applications 32 bits (la prise en charge des applications 16 bits etait encore assuree) ; 

• creation de DLL a partir de VB ; 

• utilisation de DLL (ecrites en VB ou tout autre langage) ; 

• apparition de fonctionnalites objet dans VB (utilisation de classes). 

Malgre ou peut-etre a cause de toutes ces evolutions, la version 4.0 de VB n'etait pas tres stable. 

Tres rapidement, en 1997, Microsoft sort la version 5.0 de Visual Basic qui n'amene pas de grandes evolutions si ce n'est 
la disparition des applications 16 bits. 

Les evolutions de la version 6.0, qui sort un an plus tard, portent essentiellement sur la methode d'acces aux bases de 
donnees, avec le remplacement de DAO (Data Access Object) des versions precedentes par ADO (Active Data Object), qui 
devient d'ailleurs la methode commune aux langages Microsoft pour I'acces aux donnees. 

Cette version devra toutefois attendre le service pack 4 pour permettre un fonctionnement correct de certains controles 
d'acces aux donnees (le Data Environment). 

Bien qu'etant generee en code natif par la compilation, une application VB a toujours besoin du module runtime pour 
pouvoir s'executer sur une machine (vbrun.dll) car, contrairement a des langages comme C+ + , VB n'utilise pas I'interface 
de programmation WIN32 pour appeler les fonctions du systeme d'exploitation. 

La version suivante qui sort en 2002 apporte des changements radicaux dans Visual Basic. Cette version s'integre dans 
la suite Visual Studio .Net reposant sur une nouvelle infrastructure pour la creation et I'execution d'applications sous 
Windows : le Framework .NET. Les principes de fonctionnement de cette infrastructure sont decrits dans le chapitre 
Presentation dela plate-forme .NET. 

Les versions 2003 et 2005 suivent revolution du Framework.NET (version 1.1 puis 2.0) apportant toujours plus de 
fonctionnalites et d'outils facilitant et accelerant le developpeent d'applications. 

La version 2008 apporte egalement son lot de nouveautes. Parmi les plus remarquables : 

• Possibility de generer une application pour une version specifique du framework (2.0, 3.0, 3.5). 

• Prise en charge ou amelioration de la prise en charge de nouvelles technologies pour le developpement WEB 
(AJAX, Java Script, CSS...)- 

• Integration de Linq dans les langages Visual Basic et Visual C# permettant d'uniformiser I'acces aux donnees 
independamment de la source (objets, bases de donnees, fichier XML). 

• Ajout d'un utilitaire de mappage objet/relationnel (O/R Designer). 

• Creation d'applications WPF optimisees pour Windows Vista. 

• Possibility de creer des etats avec Report Designer (en remplacement de Crystal Report). 
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Installation et premier demarrage 



1. Configuration necessaire 



Pour permettre un fonctionnement correct, Visual Studio necessite une configuration minimale. Microsoft conseille les 
valeurs suivantes : 



Composant 


Minimum recommande 


Performances optimales 


Processeur 


Pentium 1,6 GHz ou equivalent 


Pentium 2,2 GHz ou equivalent 


RAM 


384 Mo 


1024 Mo 


Espace disque 


1 GB sur le disque systemeet de 
2,8 a 3,8 GB sur un autre disque 




Video 


1024 x 768 


1280 x 1024 


Lecteur CD-Rom ou DVD 


Indispensable 


Indispensable 


Systeme d'exploitation 


Microsoft Windows XPMicrosoft 
Windows Server 2003Microsoft 
Windows Vista 


Toute version ulterieure (XP, 2003) 
avec le dernier service pack 
disponible (SP2 pour XP, SP2 pour 
Windows 2003) 



2. Procedure (installation 

Les elements necessaires sont : 

• les CD-Rom ou DVD de Visual Studio.NET ; 

• de la place disponible sur votre disque dur (de 3,8 a 5 Go en fonction des outils installes) ; 

• et surtout de la patience, car 1'installation est longue... 

Apres insertion du premier CD-Rom et quelques secondes de chargement, I'ecran suivant s'affiche : 
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Installation de Visual Studio 2008 



Microsoft' 

». Visual StudiO' 2008 Installation 





Installer Visual "sEidloTooaj 

Installer les fonctionnalites et les coimposants requis 
Visual Studio 2008. 



ITISdn Installer la documentation du produit 

Installez MSDN Library, qui connprend I'aide pour Visual 
Studio. 



Rechercher les Service Releases 

Recherchez les Service Releases les plus recentes pour 
des fonctionnalites optiimales de Visual Studio 2003. 




Cet ecran propose, par des liens hypertexte, les trois actions necessaires pour 1'installation de Visual Studio. Nous 
devons bien sur debuter par 1'installation de Visual Studio. 

La premiere etape consiste, pour I'assistant d'installation, a collecter les informations concernant votre systeme : 



!i3|H|. I 



Microsoft Visual Shidio 20Gfl 



A- Microsoft' 

? Visual Studio - Team System 2008 instaiiatio 




Biercvcnuc dans I'Assistant Installation dc 
Microsoft VisuaJ Studio 2:110 B. 

Cet Assistant vous guid era tout au long de I'insta Nation 
de ce programme etde tous ±es co mp os ants rtquis. 



Aider a annciiorcr ('installation 

Vous pouvez envoycr des informations anonymes sur 
votre installation de Visual Studio a Microsoft. Pouir 
partieiper, actives la case a etcher ci-dessouc. 

□ c**T<fist 'ir^fwJkrtt retaivit in "lt. iVaflai i 6 r. V M cVo j'tfi ' 
Mhp u ia I i wv 



JjPour plus d" informations, clique? sur Pror.Edtjrf: 
collet de don^ceg 



Le piog'a r nme d'intf ailaton cftaige la-s eomporanls d'mslalaeian. 



Illllll 




crosoft* 

isual Studio" 2008 



j 




L'ecran suivant vous informe du resultat de I'analyse effectuee et vous demande d'accepter le contrat de licence et de 
saisir la cle associee a votre produit : 
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l£ Installation de Microsoft Vfsual £ludio 200 & - Page de demurrage 



Microsoft* 



* Visual Studio Team System 2008 instaiiatioi 



|\ Quittez toutes ics a p plication s avont 
. * \ de poursuivrc I" insta I lotion. 



4/ le programme d'iftst&lr&tion « de-tetfe que l« 

compojarib requis suivanb sent 

sn-stallcs ; 
+ Microsoft Windows Installer' 3-1 

* Microsoft Document Explorer* 2DQB 



_ij Le pro gramm e d'ifustaltation inctallera let 

* Microsoft .MET Framework 3.5 

p Module linguistiqua Microsoft Document 
Explorer 2u08 

* Composed de creation Web Microsoft Visual 
Studio 

+ Microsoft visual Studio 2 00 6 



Pour installer,, vous doves accepter le Contrat de 
Licence Utilisateur Pinal et taper la cle du produit. 



■ 



As surer- vousde IreetHdte comprendre bus te^cfrofc? et reslrittkms dccrits dans 
Ics Termes de Licence. Vous def/cz accepter les terries du contrat de licence 
avait de pouvor nstaler lerccjciel 



TERMES DU CONTRAT DE LICENCE LOGICIEL MICROSOFT a 
MICROSOFT VISUAL STUDIO TEAM SYSTEM 20D8 VERSION 
DARCHlTECYUflE 

Les presents termes du contrat de licence constituent un contrat 
entre Microsoft Corporat ion (ou en fonction du lieu ou vous vivBz r 
I'un de *e* affiles) et vaus. L^&i-tes atte-ntivemenL Ill portent 

If- InHQ^kt vise cj-dessu*, y cornpris lc <rijiport Sur Icqud ygus- 
I'ovtz recuje cos echeont, Ce controt porte crjolement sur les v 



Appuyezsurla couche Pg. suw pour voir le restedu teste, 

'■/'■ J'al lu les termes du contrat de licence et je les accepte. 
O Jc n'ticcepte pos les tcrmes du contrat fie licence. 



Inrpmcr 



HVGWC 



P7 3M 



tiNeriy 




L'ecran suivant vous propose de personnaliser 1'installation en choisissant les outils et langages installes ainsi que le 
repertoire dans lequel ils seront installes. En fonction de vos choix, I'espace disque necessaire pour 1'installation est 
calcule. Le programme d'installation verifie egalement que I'espace disque disponible est suffisant pour mener a bien 
1'installation. 



^ Installation de Microsoft Visual Studio 200 S - Page Options 



jffc/ • Microsoft: 

« Visual Studio Team System 2008 



retaliation 



Sclcctionncr Ics f onctiDnnalitcs a installer -, 

Qpardefaut 

InttaHeles ronctbrinallte? eeeonunano^es pour le 

Inrfalle loutes Ees fanctiannali^s con! le produit 

( " Pcrsorinalise 

SefecikmriGT les lontfonnattes a indue ei a 
cxclurc du pioduil 



Description de la forictionnal tc : 



Cette option instate toutes les fonctionnalites disponibles 
pour ce produit. 



Cberrin diiyitaliat^fl dy pre-Jurt - 



C Ut«iaiftFil«WieiOMll Vitval Stydif 9 (Tx 



Parcouiii. 



Espaca disque necessaire t 



TaMe-dud.. 



111.5 So 



Diipontilc 
47.1 Go 



Rcqms 
1.5 Go 



Rcstanl 
42.5 Go 



< Piee^derit 



Insists 



Apres validation de vos parametres par le bouton Installer, le programme d'installation debute la copie des fichiers. 
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L'ecran suivant affiche la progression de 1'installation : 



ln*ta ation de Microsoft Ufsual Studl? - Pa^e InMaller 



f ^, Visual Stud io Team System 2008 instaiiatio 




Installation de* com insist*, : 

^ Microsoft .NET Framework 3,5 

* Microsoft .«£T Framttworfc 3,5LR - FRA 

* Module linguistique Microsoft Document 
Explorer 20QB 

*• Compos-ant da creation Web Microsoft 
Visual Slgdio 

* Microsoft Visual Studio 20OB 

* Microsoft .-MET Compact Framework 3.5 

* Module Iingui4ti<jue Microsoft Visual 
Studio Tools pour Microsoft Office 
Systern (vers ion 3,0 Runtime} ■ FRA 

* Microsoft S-QL Server Compact 3.5 

* Oulils da conception Microsoft SQL 
Server Compact J r S 

* Microsoft SQL Scrv cr Co mp act 3 ■ 5 For 
Dcvsces 

* Windows Mobile 5,0 SDK RZ for Pocket 
PC 

Windows Mobile 5.0 SDK RZ for 
■Sm*rtnhnpift 

I mUalisatiori de McrosoSt.NET Fmrnewoik 3.5 



I 1 1 ■ I ■■ ■ I ■ I ■ 
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Si vous installez le produit a partir de CD-Rom, vous serez invite a inserer le disque suivant permettant de poursuivre 
la phase d'installation. 

Apres une trentaine de minutes de copie, l'ecran suivant vous informe du succes de 1'installation. 
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Microsoft: 

Visual Studio Team System 2008 instaiiatio 




Operation reussie 

L'lnstallatEon de Visual Studio est terrnlnee. 



visual studio 200S a cte iitstallc. ^Documentation 



Pour install MSDN Library pour Visuat Studio 20QS, executez 
satup.exa situi dans le dossier MSDN sur Is media d'installatiion 
cm telechargez MSOH Library Expr-ess - 



-V Motes de securite : 



II est tenement re coin in a ride de mettre J jour cet ordinateur 
av££ t&S d-emierS correctifs de securtte pour" vtitre systems 

^'exploitation, visitez le site Web windows update, 
http : ff window supda be- . micros &ft.corfl , pour obtenir les dernieres 
rnises a jour. Vous pouvez egalement vous procurer des mises a 
jour pour Windows XP , Windows Server 2003 at Vista. 

* ll est ag a lament recommand£ da ctioisir da vous abonner 
au service Microsoft Update pour etre sur de recevoir 
toutes les mises a jour dispenses pour ce produit et 

4'J"irr^ nrnrinih^ . Niirrrwvfr . i r pf :p fin rnin^i iIfpt Ip.^ifp 
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Apres la fermeture de cet ecran par le bouton Terminer, vous revenez a I'ecran initial et pouvez alors choisir 
I'installation de la documentation MSDN. 

Comme pour 1'installation de Visual Studio, un assistant vous guide dans les differentes etapes. 



fcfr Microsoft WSOH Library for Visual Studio 20 



msdn library 



Installation 



Bj en venue dans rAssistant Installation de 
Mfcrosoft MSDN Library for Visual Studio 2000. 

Cet Assistant vous gddera tout au long de installation 
de ce programme etde tous ±es co mp os ante requis. 



Help Improve Setup 

You Dan submit anonymous information about four 
MSDN Library setup experience s to Microsoft. To 
participate, check the boa below,, 

Q ErtwC^er dit i^OlfMliertt ftLaiv4t 4 ItrJfl LnsliJI-alion i MiciMcil: 
Corpoialion. 

.ijPour plus d" informations, cliquei sur Ft n: 

cq%ci;c dc don"C£s 



Criargerneril terrnhe. Qquaz surSufvant pour conlinuei. 



ay 





msdn library 



I < Piecederit I 



Suivar* > 



hfi rider 



Vous devez accepter le contrat de licence MSDN pour pouvoir poursuivre 1'installation. 



Hag 



l£ Installation de Microsoft MSDN Library for Visual £ludio 2000 - de demurrage 



msdn library installation 




I 



Quitter toutes Scs applications avant 
de poursuivre I' installation. 

Certains composants requi e-refnt que les 
connexions re"seau soient suspendues 
pendant 1'installation. 



La programme d'installabon a detecte que les 
camposants requis suivants sont deja 
installs £ 

* Microsoft Windows Installer 3 .1 

* Microsoft MET Framework 2.0a 

i Microsoft Document Explorer 2006 



Module linguistique Microsoft Document 
explorer 200? 



j^le programme d'inftdtatrtrt installera les 

go n~ip os ant s suivants i 
+ Microsoft MSDW Library for Vitual Studi* 2503 



Pour installer,, vous devez accepter le Contrat de 
Licence Utilisateur final. 





Assurez-vousde Ireefc'de corripreridre bus tesdrofcs cfc restrtbons decrits dans 
les Termes ds Licence. Vous deves accepter les tcrrrcs du ccntrat dc Iccnce 
avait de pouvor nstaler leEogttel. 



TEPLMES DU COflTftAT DE LICENCE D"UM LQGICIEL MICROSOFT 
MICROSOFT MSDI LIBRARY FOR VISUAL STUDIO £008 
Les presents termes ont valeur de ennbrat entre Micro so It 
Corporation (ou en fcnctlondu lieu au vous vlvez, J'un de ses 
aFfilie" i) et vous. Llsez-tes attentLvemenL lis portent sui- le 
loQiciel nornme t: i-[te*ius p y eomnpk-i-c le cuppat-t sur lequel vous 
l'av« recu lc cos cihtfflnl:, Cc contrat port e eqpjIeTntnt *ur les 
roduits Microsoft survonfcs ; 



Ir _ i-nrncr 



ftppuyez sur la touohe Pg. suw pour voir le rests du teste., 

■■*} J'aJ lu les termes du contrat de licence et je les accepte, 
O Jc n 'accepte pas les tcrmcs du contrat dc licence. 



riom ; 



i- ie.'i- 
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Puis vous devez choisir le type d'installation desiree. Si vous ne choisissez pas Installation complete, vous serez 
parfois oblige de fournir le ou les disques source de MSDN lors de la consultation de certaines rubriques d'aide. En 
fonction de vos choix, I'espace disque necessaire est calcule et affiche. 



\nsta Wiofl de Microsoft MSDN Libiory for Visual Umdio 2000 - Page OpHpns 



□ "IS 



msdn library installation 



Stlcctionncr les f onr.liDnno1ir.es a instaNcr : 

0connp]et 

InrtafleloiJtetles farirtianriaUt^-t pou Is peedufc 

O Minimum 

Instates fanctiorirtaltet tKitimtttniit&i p&jr le 

•' PctsarirraliBG 

Sefedkmntr les lonrtonriattes a indue c: 6 
enclLire du piodwl 



Description de Sa fonciicinriaM:a : 



Cette option installs touftes les- f and iannalites dispanibles 
pcur ce produit. 



Chemin tfin#i^liati*n du (Vedu* : 










P^eauiii.. 


Espace deque- necessaire : 


Volwnc Tofle-dudL Dtapontab 




RcsfcoH 


C: Tll.BGo 4A2Go 


23 Go 


40.9 Go 



[ <jPi-fc^m 1 1 Inflate j 



Ann-Jti 



L'ultime etape demarre la copie des fichiers sur le disque. 



ffji In^ta I Lilian de Microsoft MSfJN Library for Visual £ludlP 2000 - Pa^p InMtller 




msdn library installation 





Installation des rnministfnts : 

^ M< era soft MS D N Lib ra ry for Visual 
Studio 2UUB 



Fi chief : adrnirveadrrw.hljri :Fet»itoiie : Q^JPragiarn FfesVM 




Soyn-j: phut productif 



ectueksee sur les Ieng*ye5 de 
programme tian dont vour mdus 

* Ins-t-allei une documentation 
localis«ra dans votra lingua 

* Mefctei a jour vfctre v«-rjio.n de 
MSDN Library u i-& la Cantp* de 
til»ch*rg9m»nt Microsoft 





En fonction de vos choix et du type de support utilise pour 1'installation, vous serez invite au cours de la copie a fournir 
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le ou les disques suivants. 

Apres quelques minutes de copie, I'ecran suivant vous confirme 1'installation de la documentation MSDN. 



I^r Installation de ^icroscft MSfJN Library far Visual £ludio 200 0 - Page de fin 




ms 



dnjibrary 



Installation 




Operation reussie 

L'installation de MSDN Library est terminee 



MSDN Library pour Visual Studio 
2003 a ete installe. 



V Motes de securite : 



il est fortement recominande de rnettre £ pur cet ordinateur 
avec les demiers corrects de securite ppur votre systeme 
Sexploitation. Visitez le site Web Windows Update, 
h xtp : //windowsupdate . micros of t.c om . pour obtenir les dernieres 
finises a jour, vous pouvez egale merit vous procurer des mises a 
jp.gr pour Windows XP _ Windows Server 20-03 et Vista - 

* Si Microsoft Internet Information Services [IIS J est instalLe 
sur cet ordinateur r re programme d'installation inscrit 
automatiquement ASP.NET, 

* Si vous aves effec ui£ Installation dans un repertoire 
autre que le repertoire par defiaut ou sur une partition qui 
utilise le systeme de fichiers FAT, vos Frchiers peuvant ne 
pas etre proteges centre les autres utilisateurs de 
rordinateur. Si cet ordinateur est partage" par d'autres 
utilisateurs, il est recommande de verifier Jes automations 
sur le repertoire d'ins taxation a fin de ne pas autoriser tous 

les utilisateurs I modifier les fichrers. Si vous ne prenez 



_l 




La derniere etape consiste a verifier, aupres de Microsoft, s'il existe des correctifs pour les produits que vous venez 
d'installer. Cette etape necessite un acces Internet avec bande passante suffisante car le volume d'informations a 
recevoir peut etre important (Modem 56 K s'abstenir). Si vous ne disposez pas d'acces Internet, vous pouvez ignorer 
cette etape et tout de meme disposer d'un produit operationnel. 



3. Premier demarrage 

Un raccourci cree automatiquement par le programme d'installation vous permet de lancer Visual Studio. 




Lors du premier demarrage, Visual Studio vous propose de personnaliser I'environnement de travail. En fonction de 
votre preference pour un langage particulier, Visual Studio configure I'environnement avec les outils adaptes. Cette 
configuration peut, par la suite, etre modifiee par le menu Outils - Importation et exportation de parametres. 
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Choisir les parametres d'environnement par defaut 




r * Visual Studio Team System 2008 




Avant d'utiliser Visual Studio pour la premiere fois, vous devez specifier votre activite de 
developpement la plus importante, par exemple Visual Basic ou Visual C#. Ces informations 
permettent a Visual 5tudio d'appliquer une collection de parametres predefinis a I'environnement 
de developpement repondant a votre activite de developpement. 

Vous pouvez decider d'utiliser une autre collection de parametres a tout moment. Dans le menu 
OutilSj choisissez Importation et exportation de parametres, puis Reinitialiser tous les 
parametres. 



0 Autoriser Visual Studio a telecharger et a afficher du contenu RSS 

0Migrer mes parametres eligibles depuis une version precedente et les ajouter aux 
parametres par defaut selectionnes ci-dessous. 

Choisissez vos parametres d'environnement par defaut : 

Description : 

Optimise I'environnement afin que vous puissiez 
vous concentrer sur la creation duplications de 
haut niveau. Get ensemble de parametres 
contient des personnalisations de la disposition 
des fenetres, des menus de commandes et des 
raccourcis clavier pour rendre les commandes 
Visual Basic courantes plus accessibles. 



Mes parametres precedents 
Parametres de developpement generaux 



Parametres de develoooement Visual Basic 



Parametres de developpement 
Parametres de developpement 
Parametres de developpement 



Visual C# 
Visual C++ 
Web 



Demarrer Visual Studio] Quitter Visual Studio 



Visual Studio applique ensuite vos choix avant de demarrer. 



Microsoft Visual Studio 



f |^ Microsoft Visual Studio est en train de configurer I'environnement 

— 



Ill 



Nous allons maintenant explorer les outils a notre disposition. 



- 8- 



© ENI Editions - All rigths reserved 



Decouverte de I'environnement 

1. Page de demarrage 



Cette page est affichee a chaque lancement de Visual Studio. El le vous permet d'acceder rapidement aux derniers 
projets sur lesquels vous avez travaille, de creer un nouveau projet ou d'ouvrir un projet existant. La rubrique Mise en 
route vous propose des liens vers les rubriques d'aide utiles pour une prise en main rapide de Visual Studio. Si une 
connexion Internet est disponible, la zone Informations pour les developpeurs Visual Studio contient des 
informations en provenance du site Microsoft. 
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L'URL contactee pour renseigner cette rubrique est configurable par le menu Outils - Options. Apres creation d'un 
nouveau projet ou ouverture d'un projet existant, I'environnement Visual Studio est demarre. 

2. Environnement Visual Studio 

L'environnement est compose de trois types d'elements : 



• une zone de barre de menus et de barres d'outils ; 



• une zone centrale de travail ; 



• une multitude de fenetres constituant les differents outils a notre disposition. 



L'ensemble presente tout de meme un aspect charge et, apres I'ajout d'une ou deux barres d'outils et I'apparition de 
quelques fenetres supplementaires, la zone de travail devient restreinte surtout sur un ecran classique de 15 pouces. 
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Heureusement, plusieurs solutions sont disponibles pour gerer notre espace de travail : 



• I'ancrage des fenetres ; 



• le masquage automatique des fenetres ; 



• I'utilisation d'onglets. 



L'ancrage de fenetres ne permet pas de gagner de la place sur I'ecran mais nous permet d'accrocher, a une bordure de 
I'ecran ou d'une autre fenetre, telle ou telle fenetre. II est egalement possible de rendre flottante chaque fenetre, en 
double cliquant sur sa barre de titre ou en utilisant le menu contextuel. La fenetre peut etre ensuite deplacee ou 
ancree sur une autre bordure. Pour nous guider dans l'ancrage d'une fenetre, Visual Studio affiche, pendant le 
deplacement d'une fenetre, des guides permettant de choisir la bordure ou effectuer l'ancrage. 



' JppUjif-lE-iM ■ Ubidull ViluaI '.tudhi 
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Les icones 



placees en peripherie de I'ecran permettent l'ancrage sur la bordure correspondante de I'ecran. Les 
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icones 





II \_ 


r 


^1 






► 





apparaissant au centre de la fenetre survolee, controlent I'ancrage sur ses bordures ou sous 



forme d'un onglet supplemental pour la fenetre. 

Plus interessantes pour gagner de la place sur I'ecran, les fenetres masquables ne sont visibles que si le curseur de la 
souris se trouve au-dessus de leur surface. Sinon, seule une zone d'onglets, situee en bordure de I'environnement de 
developpement, permet de faire apparaitre son contenu. Po ur conse rver une fenetre toujours visible, il suffit de la 

bloquer en utilisant la punaise presente sur sa barre de titre . 

Enfin, Tutilisation d'onglets permet de partager une meme zone ecran entre differentes fenetres et a ce niveau, les 
concepteurs de Visual Studio en ont use sans moderation. 
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Les outils disponibles 



Regardons un peu plus en detail les differentes barres d'outils et fenetres qui sont a notre disposition. 

1. Les barres d'outils 

Pas moins de trente barres d'outils differentes sont disponibles dans Visual Studio. L'affichage de chacune d'elles peut 
etre controle par le menu contextuel, obtenu en faisant un die droit sur la barre de menus principale. 



&> (hires durf-appOft 
■Cwicep*njr dt (tosses 
Ctrtfcpteu de rtquftw 
Conceptwjr de tables 

cortrSs de cods stiHjrce 

II est bien sur inutile d'afficher la totalite des barres d'outils simultanement mais seulement les plus utiles. 
Standard 



Standard 
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Editeur de texte 



Editeur de tewte 






▼ X 
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Editeur de boites de dialogue 



Editeur de boites de dialogue 
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Disposition 



Disposition 1 
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Deboguer 



Deboguer 
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Les autres barres disponibles seront affichees, au coup par coup, en fonction de vos besoins afin d'eviter de 
surcharger votre ecran. 

Les fenetres disponibles sont egalement assez nombreuses et nous allons decouvrir les plus courantes. 

2. La boite a outils 

C'est a partir de la boite a outils que nous allons choisir les elements utilises pour la conception de I'interface de 
I'application. 



Desji de dc™*« 
BSspOSiJOTi 

tAtu de b&aes de Aibou* 
ifcwj* cte teste 



Empbcefnert de debogage 

Feule-de style 
FOrriWtag* du rSPfWrt 
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Stardaid 
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Boite a outils 




+ Controles 



s commun 



^^Tonteneurs 

Pointeur 



FlowLayoutPanel 
r v "| GroupBox 
I | Panel 
fjj SplitContainer 
Q TabControl 

*• : 

[jj^j TableLayoutPanel 



B Menus et barres d'outils 



\ Pointeur 

ContextMenuStrip 
U MenuStrip 

| 5tatus5trip 

OlM ToolStrip 
\_i ToolStripContainer 
+ Donnees 
UTtomposants 



+ Impression 




La boite a outils est organisee par rubrique permettant de facilement retrouver les controles. 

Chacun pourra personnaliser sa boite a outils en y ajoutant par exemple, des controles non disponibles par defaut. II 
peut etre judicieux, avant d'ajouter des controles a votre boite a outils, de creer une nouvelle rubrique pour les 
heberger. Pour cela, affichez le menu contextuel de la boite a outils (en cliquant avec le bouton droit de la souris sur la 
boite a outils), choisissez I'option Ajouter un onglet puis donnez un nom a la nouvelle rubrique ainsi creee. Apres avoir 
selectionne cette nouvelle rubrique, vous pouvez ensuite y ajouter des controles. Affichez a nouveau le menu 
contextuel de la boite a outils puis choisissez I'option Choisir les elements. 

La liste des controles (Com ou .NET), disponibles sur la machine, est alors presentee, vous permettant ainsi de 
selectionner les controles a ajouter dans cette rubrique de la boite a outils. La configuration de la boite a outils n'est 
pas liee au projet actif mais a I'environnement lui-meme (la boite a outils sera identique quel que soit le projet ouvert). 



3. L'explorateur de serveurs 

L'explorateur de serveurs est disponible par le menu Affichage - Explorateur de serveurs ou par le raccourci-clavier 
[Ctrl] [Alt] S. II s'affiche sur un nouvel onglet de la fenetre associee a la boite a outils. 
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Ewplorateur de serveurs 




[p Connexions de donnees 
Serveurs 



THIERRY 
■ 



Li ^' asses de gestion 



El- 



Adaptateurs reseau 
Comptes systeme 
Connexions reseau 



1 j 


■ 






m- 1 





EB 



D:\WINDOW5\system32\config\5ysEvent.Evl: 
Imprimantes 



Parametres du Bureau 



El- 
El- 



Partages 
Poste de travail 
Processeurs 
Processus 
^ Services 

Systemes d'exploitation 
Threads 

Volumes de disque 

| Compteurs de performance 

Evenements de gestion 
Files d'attente de messages 
Journaux des evenements 
Application 
Securite 
Systeme 



El- 



El 

jfi Services 

Services Crystal Reports 



* 



La majorite des applications a besoin pour fonctionner d'autres machines presentes sur le reseau. II est done 
necessaire d'avoir, pendant la phase de developpement d'une application, la possibility d'acceder aux ressources 
disponibles sur d'autres machines. 

L'element le plus frequemment utilise de la fenetre explorateur de serveurs sera certainement la rubrique Connexions 
de donnees. 

El le permet notamment la gestion des objets disponibles sur le serveur SQL (tables, vues, procedures stockees). 

L'explorateur de serveurs permet egalement de gerer les services fonctionnant sur les machines aussi bien par 
I'interface graphique que par le code. II offre la possibility de visualiser I'activite des machines en analysant les 
compteurs de performance ou en recuperant les informations dans les differents journaux d'evenements. Un simple 
glisser-deplacer entre l'explorateur de serveurs et une fenetre en cours de conception genere automatiquement le 
code permettant de manipuler cet element dans I'application. Par exemple, le deplacement d'un compteur de 
performance au-dessus d'une fenetre genere le code suivant : 



Friend WithEvents perf CptMemoire As System . Diagnostics . Perf ormanceCounter 
Me . perf CptMemoire = New System . Diagnostics . Perf ormanceCounter 
Me . perf CptMemoire . CategoryName = "Memoire" 

Me . perf CptMemoire . CounterName = "Kilo-octets disponibles" 
Me . perf CptMemoire . MachineName = "portableTG" 



4. L'explorateur de solutions 

L'explorateur de solutions permet I'affichage des elements constituant une solution et la modification de leurs 
proprietes. 
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lEwplorateur de solutions - entites 








[13 | ^ 


Solution 'microshopConsole 1 (7 projets) 


a- ■ i 


p appliConsole 








-dj My Project 






■■ app.config 






■■ Assemblylnfo.vb 






■■ *y principale.vb 






■■ f§| Settings. vb 




J controleurs 




| DAL 








jj My Project 






■ Assemblylnfo.vb 






■■ Catalogue. vb 






■■ lesFabricants.vb 




iHentites 1 


a -- i 


3 testClassesEntites 


S- SI 


p testRessources 


a- i 


J] vuesConsole 


L^Explorateur de solutions «q] Sources de donnees 



A L'utilisation de I'explorateur de solutions est presente en detail dans le chapitre consacre a I'organisation d'une 
v application. 



5. L'affichage de classes 

L'affichage de classes est accessible par le menu Affichage - Autres fenetres - Affichage de classes ou par le 

raccourci-clavier [Ctrl] [Shift] C. II partage sa zone ecran avec I'explorateur de solutions. 
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Affichage de classes 



<Rechercher> 



S-tj^l appliConsole 
S -|[^3 controleurs 
S-i^l DAL 
□■■■ijpl entites 

El-Q References 
EEhl J entites 

^ adresse 
DisqueDur 
Fabricant 
Ligne 

$■■■{} My 
EE-^J Panier 
[j-^ Processeur 

Produit 
Sh&J Settings 
S -^l Souris 
testClassesEntites 
S testRessources 
S -^il vuesConsole 



-4 



4 



capaciteQ As Integer 
designationQ As String 
Equals(Object) As Boolean 
EqualsCObject, Object) As Boolean 
fabricantQ As entites. Fabricant 
FinalizeQ 

GetHashCode() As Integer 
GetTypeQ As System. Type 
infosQ As String 
leFabricant 

MemberwiseCloneQ As Object 





L'affichage de classe permet d'avoir une vision logique d'une solution en presentant les differentes classes utilisees 
dans cette solution. 



6. La fenetre de proprieties 

La fenetre de proprietes peut etre affichee par trois methodes : 

• En utilisant le menu Affichage - Fenetre de proprietes. 

• Par la touche de fonction [F4]. 

• Par I'option Proprietes du menu contextuel disponible en cliquant avec le bouton droit sur un des elements 

constituant un projet (element graphique de I'interface utilisateur, fichier ou dossier du projet...). La fenetre de 
proprietes adapte automatiquement son contenu en fonction de I'element selectionne et permet de modifier 
ces caracteristiques. 
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Proprieties 


M 


*n»I S yStem .W ind o.,Po rm , F - | 




El 
El 
El 

m 


MaximumSize 


0;0 j^J 


MinimizeBox 


True 




Minimum5ize 


0; 0 




Opacity 


ioo%- 


shShhhh 1 

mm 

111 

HH 

HH 

Wm\ 

1111 

111 

ililiiii 1 


Padding 


0;. 0; D; 0 


RightToLeft 


No 


RightToLeftLayout 


False 


Showlcon 


True 


ShowInTaskbar 


True 


Size 


3QB; .300 


SizeGripStyle 


Auto 


StartPosition 


WindowsDefaultLocation 


Tag 




Text 


Forml 




TCKt 

Le texte associe au controle. 


C^Explorateur de s. . . ||\pSources de donn. . . ]^Proprietes 



Les elements dont vous pouvez modifier les caracteristiques peuvent etre selectionnes directement dans la liste 
deroulante ou sur I'interface de I'application. 

Deux presentations sont disponibles pour la liste des proprietes : 
Le mode Alphabetique que vous activez en cliquant sur I'icone 

Le mode Par categorie que vous activez en cliquant sur I'icone 



7. L'aide dynamique 

L'aide dynamique de Visual Studio selectionne les rubriques d'aide qui pourraient vous etre utiles en fonction de votre 
activite ou des commandes et outils utilises. 



- ^ x 



Aide dynamique 



Comment f aire Rechercher & Index 



Aide 



Affichaqe de classes 
Personnalisation de I'environnement de developpement 
Modifications du lanqaqe pour les utilisateurs de Visual Ba 
Comment : personnaliser I'aide dynamique 
Nouveautes de Visual Studio 200B 
Exemples Visual Studio 
Visual Studio 

Presentation de Visual Studio 
Procedures pas a pas Visual Studio 
Developpement Smart Device 
(]2) Mise en route 

Choix des technologies et outils a utiliser 




Dans I'exemple ci contre, un bouton de commande vient juste d'etre selectionne sur I'interface. Les differentes 
rubriques proposees sont done centrees sur I'objet bouton de commande. 
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8. La liste des taches 



Cette fenetre va vous permettre de remplacer les dizaines de Postlt colles sur le bord de votre ecran. En effet, vous 
pourrez gerer ce qu'il reste a faire dans votre projet en tenant a jour une liste des modifications a apporter dans votre 
code. 



I Liste des Caches - 1 Cache 


m 


Gonnrnentaires 


a 


Description * 1 


Fkhier * I 


Ligne 1 


■ 


todo completer le code tfajout d'un client 


Fonitl.vb 


4 [ 
















































- 



Les informations presentes dans la liste peuvent avoir deux origines : 

• Les commentaires inseres dans votre code. 

• Les informations saisies directement dans la fenetre. 

Vous pouvez placer dans votre code des commentaires qui apparaitront par la suite dans la liste des taches. Cette 
technique vous permet par exemple d'indiquer une modification a effectuer plus tard dans votre code. 

II suffit que le commentaire commence par todo, pour etre ensuite repris automatiquement dans la liste des taches. 

Vous pouvez egalement saisir directement les informations dans la liste des taches. Vous devez basculer vers 
I'affichage des taches utilisateur en utilisant la zone de liste disponible sur la barre de titre de la liste des taches. 



Liste des taches 




Commejitaires 


Commc-iitaires 


i 'I 


Fichier 


Ligne * 


ilTaches utilisateur 



























































L'ajout d'une tache s'execute ensuite par le bouton |S3 | , disponible dans la liste des taches. 

Vous pouvez alors specifier une description et une priorite pour la nouvelle tache en cliquant sur la colonne de gauche 
de la liste des taches. Trois niveaux de priorite sont disponibles : 

• Haute 

• Normale 

• Basse. 

Pour chaque tache, une case a cocher permet d'indiquer qu'elle a ete realisee. Sa description apparait alors barree 
dans la liste des taches. II n'y a pas, pour les taches utilisateur, de liaison automatique avec une portion quelconque 
de code. 



9. La liste des erreurs 
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Le code que vous saisissez est analyse en continu par Visual Studio et les eventuelles erreurs de 
reprises par Visual Studio dans la fenetre Liste d'erreurs. 



syntaxe sont 



| Liste d'erreurc 




Q 1 err-eur j^SavertissernentJ; (j) 0 messages 


i 


i 


Description 


Fichier 1 


uone 1 


cdonne 


PfrQ£t 1 


i 


i 


Accte ef un mernfore fHrtage\ dun mernbre dt constants, 
tfun urembre mm m d\jn type imbrlque sHa une 
HTetarce j repression quaif iante ne sere pas evaluaa., 




6 


23 


bsstl 




2 


^attendua, 


testdnd.vb 




33 


testl 




i 


Awfes (Jgn rnernfere partage, dun membra cle constant^ 
cfurr mernbre cnum cu diri typerribrique via une 
nr-shance j feipressm qualfiante mc sera pas cvaJucc, 


tertdnd-vb 


13 

































Pour aller directement sur la ligne ou une erreur de syntaxe est apparue, il suffit de double cliquer dans la liste sur 
I'element correspondant (dans I'exemple precedent, double cliquer sur " v y attendue " pour atteindre la ligne 6). Vous 
n'avez done nul besoin de demander la compilation complete du code pour traquer toutes les erreurs de syntaxe. Des 
que I'erreur est corrigee, elle disparait automatiquement de la liste des erreurs. 

Les boutons erreur, avertissement, message activent un filtrage sur les messages affiches dans la liste des erreurs. 



10. La fenetre d'edition de code 

C'est certainement dans cette fenetre que nous allons passer le plus de temps. Elle propose de nombreuses 
fonctionnalites permettant d'automatiser les actions les plus courantes. 



a. Les Snippets 

Les Snippets sont des morceaux de code qui peuvent tres facilement etre incorpores dans un fichier source. lis 
permettent d'ecrire tres rapidement des portions de code correspondant a des situations courantes. Visual Studio 
propose, de base, une multitude de Snippets. Trois solutions sont disponibles pour inserer un Snippet : 



• Utilisez I'optionlnserer un extrait du menu contextuel de I'editeur de code. 



• Utilisez les combinaisons de touches [Ctrl] K puis [Ctrl] X. 



• Saisissez le nom du Snippet puis la touche [Tab]. 



Pour les deux premieres methodes, Visual Studio vous propose de choisir dans une liste le Snippet qui vous 
interesse. Certaines portions de code du Snippet peuvent etre personnalisees. Ces portions de code sont surlignees 
en bleu clair. La modification d'une de ces portions de code repercute le changement sur toutes les occurrences dans 
le Snippet. 

Dans I'exemple suivant, un Snippet a ete utilise pour ajouter une nouvelle propriete a une classe. 



Pr ivate 


neuPropertyValue 


As 


Integer 




Public Property HewProperty ( ) As 


Integer 





Get 

Return newPropertyValue 
End Get 

Set(EyVal value As Integer) 

newPropertyValue = value 
End Set 
End Property 

La modification des valeurs newPropertyValue, Integer et NewProperty sera effectuee en cascade sur I'ensemble du 
code du Snippet. 

Vous pouvez egalement concevoir vos propres Snippets. Vous devez pour cela creer un fichier XML qui va contenir le 
code du Snippet. Ce fichier doit avoir I'extension .snippet. 

Pour vous aider dans la creation d'un Snippet, Microsoft a prevu un Snippet. Vous pouvez I'incorporer dans votre 
fichier XML par le menu contextuel Inserer un extrait - Snippet. 
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Vous devez alors obtenir le document suivant 



<?xml version=" 1 . 0 " encoding="utf-8" ?> 
<CodeSnippet Format =" 1 . 0 . 0 " 

xmlns="http : / / schema s .microsoft . com/ Visual Studio/ 2005/ Code Snippet "> 
<Header> 

<Title>title</Title> 

<Author>author</Author> 

< Sho rt cut > short cut </ Short cut > 

<Description>description</Description> 

< Snippet Type s> 

< Snippet Type >SurroundsWith</ Snippet Type > 
< Snippet Type >Expansion</ Snippet Type > 
</ SnippetTypes> 
</Header> 
<Snippet> 

<Declarations> 
<Literal> 

<IDname/ID> 

<Def ault value /Default > 
</Literal> 
</Declarations> 
<Code Language="XML"> 
<! [ CDATA [ <test> 
<name>$name$</ name> 
$selected$ $end$</test> ] ] > 
</Code> 
</ Snippet> 
</ CodeSnippet> 



Avant de voir comment completer ce fichier, vous devez apporter une petite modification a sa structure. Les trois 
premieres lignes doivent etre modifiees afin d'obtenir la forme suivante : 



<?xml version="l . 0" encoding="UTF-8" ?> 
<Code Snippet s 

xmlns="http : / /s enemas .microsoft . com/ Visual Studio/ 2005/ Code Snippet "> 
<CodeSnippet Format=" 1 . 0 . 0 "> 



Vous devez egalement ajouter la balise de fermeture suivante a la fin du fichier. 

</CodeSnippets> 

Vous pouvez ensuite personnaliser votre Snippet. Dans un premier temps, vous devez modifier la section Header en 
remplagant les valeurs des differentes balises. 



<Header> 

<Title>Parcours d' un tableau</Title> 

<Author>Thierry</Author> 

< Sho rt cut >tablo</ Short cut > 

<Description>ce Snippet ajoute une boucle permettant de parcourir un 
tableau</Description> 
< Snippet Type s> 

< Snippet Type >Expansion</ Snippet Type > 
</ SnippetTypes> 
</Header> 



La section Declarations permet ensuite de creer les parametres utilises dans le Snippet. Pour chaque parametre, 
vous devez creer une section <Literai> et fournir un nom pour le parametre et une valeur par defaut. 



<Declarations> 
<Literal> 

<ID>nomtableau</ID> 

<Def ault >leTableau< /Default > 
</Literal> 
<Literal> 

<ID>typeTableau</ID> 

<Def ault >TypeDuTableau< /Default > 
</Literal> 
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<Literal> 

<ID>tailleTableau</ID> 

<Def ault>t ailleDuTableau< /Default > 
</Literal> 
</Declarations> 



Vous devez ensuite indiquer pour quel langage votre Snippet est prevu 



<Code Language= " VB " > 



Puis, enfin, definir dans la balise CDATA le code du Snippet. Dans ce code, vous pouvez utiliser les parametres du 
Snippet en les encadrant entre deux caracteres $. 



<! [ CDATA [ 

dim $nomTableau$ ( $tailleTableau$ ) as $typeTableau$ 

dim index as integer 

for index=0 to $taillaTableau$ -1 

A inserer le code de traitement du tableau 

next ] ] > 



Vous enregistrez ensuite le fichier et votre Snippet est pret. II convient de maintenant I'integrer dans Visual Studio, 
Pour cela, vous activez le gestionnaire de Snippet par le menu Outils - Gestionnaire des extraits de code. 



Gestionnaire des ewtraits de code 



Langage : 



I 



isual Basic 



3 



Emplacement : 



D:\Program Files\Microsoft Visual 5tudio 8\Common7\IDE\VBExpress\5nippets\1036\collections and arr< 



4 
4 
4 
4 
4 

a 



4 



m Collections et tableaux 

Q Connectivity et reseau 

{ 3 Creation d'applications Windows Forms 

• J Donnees - Fonctionnalites du concepteur e 

r~A Interaction avec I'application 

: \1 Mathematiques 

{"~A Modeles de code communs 

r~A My Code Snippets 

{ J Traitement des lecteurSj dossiers et fichier: 
•." J Types de donnees 
•,_J XML 



1 



i 




Ajouter. , . 



5upprimer 



Importer... 



Rechercher en ligne... 




Le boutonlmporter permet d'ajouter votre Snippet a ceux deja disponibles dans Visual Studio. 

Apres avoir selectionne le fichier contenant le Snippet, vous devez choisir la rubrique dans laquelle il sera range. 
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[importer un ewt rait de code [7^ 




Extrait de code Visual Basic : 



Emplacement : 



sj snippetPerso. snippet 



B 



0C3 

□Ca 
□Ca 

&"■■•□ 

□ 

□ 

□ 

: □ 

□ 

■■□Ca 
■■□Ca 
-□Ca 
•■□Ca 
•■□Ca 
■■□13 



Collections et tableaux 



Connectivity et reseau 
Creation duplications Windows Forms 

j Controles et composants 
Ljj Dessin 

J Formulaires 
- J Polices 
r3 Presse-papiers 

J Son 

Donnees - Fonctionnalites du concepteur { 
Interaction avec I'application 
Mathematiques 
Modeles de code communs 
My Code Snippets 

Traitement des lecteurs, dossiers et fichie 

I 





< Precedent 


iuivant > | 


Terminer 


Annuler 





Votre Snippet est maintenant disponible dans I'editeur de code. 







j!\ dr«2 ltic- bate dtJemcrtt lifl typ* LrnqLit. 












J :>de- «\z dans tri tkbdnfur-t forlwvwrt type i r*dt dTuw tie. 












J PtfCDun lti dtcbkmnwc tn^ par di£. 












ParcMrezLTrecolertrori. 












.. ] Recheidm Ln ttemert Amis uti tdbbau 







II ne vous reste plus qu'a personnaliser le code genere. 



Dim leTableau (tailleDuTableau) As Integer 
Dim index As Integer 

For index = 0 To tailleDuTableau - 1 

1 inserer le code de traitement du tableau 

Next 



b. Suivi des modifications 

Vous pouvez visualiser les portions de code ayant ete modifiees depuis le demarrage de Visual Studio. Les 
modifications sont identifies par une bordure de couleur apparaissant dans la marge de I'editeur de code. 

• Une bordure jaune indique que le code a ete modifie mais pas encore sauvegarde. 

• Une bordure verte indique que le code a ete modifie et sauvegarde. 

-i i i 

System. Console . Ur iteLine (Button2 . Location) 
Dim pt As Point 

pt = Button2 . Po intToScreen (Eutton2 . Location) 
TextEoxNom. BackColor = System. Drawing. Color . FromArgb { 127 
TextEoxNom. Font = New Font (System. Drawing. FontFamily. Gen 
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Vous pouvez aussi facilement renommer un element et propager automatiquement la modification au reste du code. 
L'utilisation typique est le changement de nom d'une variable ou d'une classe. Vous ne devez pas renommer la 
variable directement dans le code mais utiliser la boite de dialogue affichee en utilisant I'option Renommer du menu 
contextuel de I'editeur de code sur le nom actuel de la variable. 



Renommer 



Nouveau norm : 



UxJ 




Emplacement : 



Forml .ButtortfjIlicKObjecl:, System. Event Args) 




OK 



Annuler 



C\ La modification realisee par I'intermediaire de cette boite de dialogue est repercutee sur I'ensemble du code ou 
v cette variable est utilisee. 



c. Utilisation de macros 



Comme la majorite des outils Microsoft, Visual Studio est maintenant capable de gerer les macros. Elles vous 
permettent de facilement enregistrer une serie d'actions executees dans Visual Studio et de les reproduire par un 
simple die sur un bouton d'une barre d'outils. 

Nous allons creer trois macros permettant I'ajout destruction Imports pour les espaces de noms 

System. Data. SqlClient, System . Data . OleDb et System . Data . Odbc. Ces macros Seront ensuite aSSOCieeS a trois 

boutons d'une nouvelle barre d'outils. 

La premiere etape est d'enregistrer les macros comme on enregistre une sequence avec un magnetophone. Le menu 
Outils - Macros - Enregistrer TemporaryMacro declenche I'enregistrement de vos actions. Vous pouvez alors saisir 
le code desire, puis arreter I'enregistrement grace a la barre d'outils affichee au debut de I'enregistrement de la 
macro. 



Enregistr T 



qj £3 ^ 



Vous devez ensuite sauvegarder la macro par le menu Outils - Macros - Sauvegarder TemporaryMacro. 



EHplorateur de macros 



^ Macros 

J-! MyMacros 

3] Module 1 

S_] RecordingModule 



ImportSql 



Samples 



Effectuez ces operations pour chacune des trois lignes de code suivantes en donnant un nom different a chacune des 
macros. 



Imports System . Data . SqlClient 
Imports Sy stem . Data . OleDb 
Imports System . Data . Odbc 



Pour rendre plus facile l'utilisation de ces macros, nous allons les regrouper sur une nouvelle barre d'outils. Vous 
devez tout d'abord creer une nouvelle barre d'outils en utilisant I'option Personnaliser du menu contextuel disponible 
sur une barre d'outils existante. 
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Barres d'outils ] Commandes 
Barres d'outils : 




Aide 



□_ 

& Barre de menus 

Concepteur de requetes 
Concepteur de tables 



Deboguer 
Design de donne 
Disposition 
Editeur de texte 
Generer 

Menus contextui 
Schema de base. 



Nouvelle barre d'outils 




Norn de la barre d'outils : 


Importations 




OK 


| Annuler | 









^ Standard 



r Utiliser de grandes icones 
R Afficher les Info-bulles 
' Afficher les touches de raccourci dans les Info-bulles 





Clavier.., 



Fermer 



La barre d'outils est maintenant disponible mais ne contient aucun bouton. Vous pouvez maintenant ajouter vos 
boutons a I'aide de la boite de dialogue de personnalisation de la barre d'outils. 



^^^^^^^^^^1 InQ 






Ajouter/supprimer des boutons T 




Importations ► 




Personnaliser. , . 




Barres d'outils Commandes 
Categories : 



Commandes : 



Edition 

Fenetre 

Fichier 

Format 

Generer 

Image 



Macros 



Nouveau menu 

Outils 

Projet 

Rapport 

Refactoriser 

Ressources 

Schema 

Schema de base de donne 
Styles 
XML 




Macros . MyMacros . RecordingModule . ImportSql 



Samples. Accessibil 
Samples. Accessibil 
Samples. Accessibil 
Samples. Accessibil 
Samples. Accessibil 



a;;;:! 




ity.DecreaseTextEditorFontSize 
ity.IncreaseTextEditorFontSize 
ity . MaximizeTool WindowsInEn vironmen 
ity.ToggleTextEditorGrayScale 
ity.UpdateTextEditorFontSizeToMatchC 
Samples. AddDirAsSlnFolder.GenerateSlnFolderOnDirStruc 
Samples. DevStudio6Editor.AddFunctionDescription H 1 
Samples . De vStudio6Editor . AddRe visionMarks 1 1 

Samples . DevStudio6Editor . AutoCompleteFromFile 



Pour ajouter une commandej faites glisser la commande de la liste Commandes et deposez-la dans la 
barre d'outils ou le menu cible. 



i 



Clavier... 



Fermer 



L'ajout des boutons se fait en effectuant un glisser-deplacer de la commande vers la barre d'outils. Les commandes 
apparaissent sous forme de texte sur la barre d'outils. Avant de fermer la boite de dialogue de personnalisation, vous 
devez associer des images aux differentes commandes en utilisant I'option Modifier I'image du bouton du menu 
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contextuel de chaque commande. 




L-rtvitinm 



. - _.L 



yom ! Macros-. hVrt*triK-.R.«Drdrigi 



T*)$e scurf p«j ot b«tori 
Masquer to rtuflt i ftp l*t riWflui 
IrnKjE tt ^x+f 



@JC^ <ft H U 



■en jg * ♦ * * 

« o ■ % l ^ 

ED *w ggi M 

I c ■* Q f 




[XjiT-STWcj- 



Choisissez egalement pour chaque bouton le style par defaut. Votre barre d'outils est maintenant prete a etre 
utilisee. 



Impor T x 



Maintenant que vous etes familiarise avec I'environnement de developpement, vous devez vous familiariser avec le 
code Visual Basic. 
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Les solutions 



1. Presentation 

Pour vous aider dans la creation d'applications, Visual Studio vous propose plusieurs elements servant a regrouper les 
composants d'une application. Le conteneur de plus haut niveau est la solution dans laquelle vous pourrez placer un 
ou plusieurs projets. Ces projets contiendront, a leur tour, tous les elements pour que le compilateur soit capable de 
generer le fichier executable ou dll du projet. L'explorateur de solutions va nous permettre de manipuler tous ces 
elements. 



2. Creation d'une solution 

La creation d'une solution est automatique lorsque vous demarrez un nouveau projet dans Visual Studio. Lors de la 
creation du nouveau projet, il vous sera demande plusieurs informations le concernant. 



Nouveau projet 



Types de propts : 



Modeles : 



■ NET Framework 3. 5 



[HUH 



a Vicu^J Basic 



Wridc'.-'s 



Web 

Smart Device 
EB Orifice 

Esse de donnas 
Reporting 
WCF 
Workflow 
H Visual CP 

SysUmes (Sstribues 
El Autres types de prcpets 



Modiles Visual Studio in-stalles 

,3] Application Windows Forms ?j Rial otheq js cla^e r. 

^ApplicaMan WPF J^ApplkatDon de navigateur WPF 

.JS Application console Biblcoth^que de contrfiles personna . . . 

| Jk|etaotheq,ue de ccntroles utilitateu. , < [£] Projet vAd§ 

EErvioe Windows Jk\ BiblbthequE de centrales WhdDws . L . 



jJfRecriercrw des modeles en Ikjne. 



P-rojet de creation g\me application avec une interface u'u'lsar.eur Windows (.r\£T Ffamewierk 



Nom : 


WindowsAppScatlonS 




Ernplatement : 


C ^DaourriEnts and 5Eltings\to7DUS5ard(Mes d , ocumEnts\vfeual Studio CadenamE Ocas^FrDjEC v 


| Paroourir, .. 


Sokitlon i 


Creer gne nguvelle solution v 


[Z Creer le reper tare pour la solution 




Mqjti d*e so&JtiDn i 


WtndowsApflttliori'3 







I <x I 



Par I'intermediaire de cette boite de dialogue, vous allez fournir les informations suivantes : 

• la version du Framework necessaire pour utiliser I'application, 

• le langage utilise pour developper le projet, 



le type de projet a creer, 



le nom du projet, 



le repertoire de base ou seront stockes les fichiers, 



le nom de la solution, 



• la creation d'un repertoire pour la solution. 
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Apres validation de cette boite de dialogue, I'explorateur de solutions vous presente la nouvelle solution sur laquelle 
vous allez pouvoir travailler. Tous les fichiers de votre solution sont deja crees et sauvegardes sur votre disque, a 
remplacement que vous avez specifie. 

Une solution contiendra au moins les fichiers suivants : 

• Un fichier avec I'extension .sin, qui est le fichier de configuration de la solution. Ce fichier contient entre autres 

la liste de tous les projets composant la solution. II est complete au fur et a mesure que vous ajoutez des 
nouveaux projets a la solution. 

• Un fichier avec I'extension .suo, enregistrant les options associees a la solution. Ce fichier permet de retrouver 
ces options. 

• Un fichier pour le projet, portant I'extension .vbproj. Ce fichier contient toutes les informa- tions de 

configuration du projet avec notamment la liste des fichiers constituant le projet, la liste de references utilisees 
par ce projet, les options a utiliser pour la compilation du projet, etc. 

• De nombreux fichiers ayant I'extension .vb qui vont contenir le code source de toutes les classes, feuilles, 
modules constituant le projet. 

• Un fichier .resx associe a chaque feuille de votre application. Ce fichier au format XML contient entre autres la 
liste des ressources utilisees sur cette feuille. 

• Au final, une solution contient de nombreux autres fichiers en fonction des elements utilises dans votre projet 
(acces a une base de donnees, fichiers html...). 



3. Modification d'une solution 

Les solutions etant des conteneurs, il est bien sur possible de gerer leurs elements. Vous pouvez ajouter, supprimer, 
renommer des elements dans la solution. 



a. Ajouter un projet 

Plusieurs possibilites sont disponibles pour I'ajout d'un projet : 

■ Si vous souhaitez creer un nouveau projet, choisissez I'option Nouveau Projet du menu Fichier - Ajouter. Une 

boite de dialogue vous propose alors de configurer les caracteristiques du nouveau projet. Cette boite de dialogue 
vous propose notamment un repertoire par defaut pour I'enregistrement du projet. Si ce repertoire ne correspond 
pas a I'emplacement ou vous desirez enregistrer le projet, vous pouvez selectionner un nouvel emplacement. Cette 
operation sera a realiser pour chaque projet que vous ajouterez. II peut etre interessant de modifier le chemin 
propose par defaut pour I'enregistrement des projets. Pour cela, ouvrez le menu Outils - Options, puis dans la 
boite de dialogue choisissez I'option Projets et solutions et modifiez la rubrique Visual studio projects location. 

■ Si vous souhaitez ajouter un projet deja existant, vous devez utiliser I'option Projet existant du menu Fichier - 

Ajouter. Une boite de dialogue de selection de fichiers vous permet alors de choisir le fichier .vbproj du projet que 
vous souhaitez ajouter a la solution. 

A noter que le projet reste a son emplacement d'origine sur le disque. 



b. Supprimer un projet 

■ Pour supprimer un projet, utilisez le menu contextuel de I'explorateur de solutions en effectuant un die droit sur le 
nom du projet que vous souhaitez supprimer de la solution. 

Le projet est elimine de la solution, mais reste enregistre sur le disque. Pour le supprimer definitivement, utilisez 
I'explorateur Windows pour supprimer les fichiers de ce projet. Si vous n'effacez pas les fichiers, le projet peut, par la 
suite, etre de nouveau ajoute a une solution. 



c. Renommer un projet 
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■ Pour renommer un projet, utilisez le menu contextuel de I'explorateur de solutions en effectuant un die droit sur le 
nom du projet que vous souhaitez renommer. 

Le nom du projet devient alors modifiable dans I'explorateur de solutions. Cette modification concerne uniquement le 
nom du fichier .vbproj associe au projet. El I e ne modifie en aucun cas le nom du repertoire dans lequel se trouvent les 
fichiers du projet. 



d. Decharger un projet 



Lorsque vous souhaitez exclure temporairement un projet du processus de generation ou rendre I'edition de ses 
composants impossible, vous pouvez decharger le projet de la solution grace a I'option Decharger le projet. 



Q Un projet decharge n'est pas retire de la solution mais simplement marque comme indisponible. 



Ewplorateur de solutions - testClassesEntites (non ..iF 



^3 Solution 'microshopConsole 1 (5 projets) 



i- 

a- 

i- 

a- 



appliConsole 
od| My Project 
|^ app.config 
*y Assembly Info, vb 
y principale.vb 
Settings, vb 
controleurs 
DAL 
entites 



testClassesEntites (non disponible) 



testRessources (non disponible) 
vuesConsole 



il^Explorateur de solutions j^ffProprietes 



Le projet peut, bien sur, etre rehabilite dans la solution en utilisant I'option Recharger le projet du menu contextuel. 



4. Organisation d'une solution 

Si vous travaillez avec une solution contenant de tres nombreux projets, vous pouvez ajouter un niveau de 
hierarchisation en creant des dossiers de solutions. Ceux-ci permettent le regroupement logique de projets au sein 
d'une solution. 



■ Pour cela, creez, dans un premier temps, les dossiers dans la solution, puis organisez les projets dans ces dossiers. 



C\ Les dossiers de solutions ne creent pas de dossiers physiques sur disque, ils sont juste des conteneurs logiques 
^ a I'interieur de la solution. 



a. Creation d'un dossier de solution 

Un dossier de solution peut etre cree par trois methodes differentes. 

■ Pour toutes ces methodes, selectionnez la solution dans I'explorateur de solution. 

■ Ensuite, utilisez soit le bouton de la barre d'outils de I'explorateur de solution, soit le menu Projet - Ajouter 
un nouveau dossier de solution ou encore le menu contextuel disponible par un die droit sur le nom de la solution. 
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Quelle que soit la methode utilisee, vous devez fournir un nom pour le dossier cree. 



b. Creer un projet dans un dossier 

La creation d'un projet dans un dossier de solution est identique a la creation d'un projet directement dans la 
solution. 

■ Selectionnez simplement, au prealable, le dossier dans lequel vous souhaitez creer le projet. 



c. Deplacer un projet dans un dossier 

II arrive frequemment que la necessite d'organiser une solution avec des dossiers se fasse sentir alors que des 
projets existent deja dans la solution. 

■ Creez, dans ce cas, les dossiers puis effectuez un glisser-deplacer des projets dans les dossiers correspondants. 



5. Le dossier Elements de solution 

Les solutions contiennent principalement des projets, cependant il est possible d'avoir, dans une solution, des fichiers 
geres independamment d'un projet particulier mais associes a la solution. C'est le cas, par exemple, d'un fichier icone 
que vous souhaitez utiliser dans plusieurs projets de la solution. Ces fichiers sont appeles elements de solution et sont 
places dans un dossier specifique de la solution. 

■ Pour ajouter un nouvel element de solution, utilisez le menu contextuel sur le nom de la solution en choisissant 
I'option Ajouter - Nouvel element ou I'option Ajouter - Element existant. 

Le nouvel element est alors ajoute dans le dossier Elements de solution. II est a noter que ce dossier n'existe pas, par 
defaut, dans une solution mais il est cree automatiquement lors de I'ajout du premier element de solution. Les 
elements de solution peuvent ensuite etre modifies avec un editeur specifique au type de fichier cree. 



6. Le dossier Fichiers divers 

Vous pouvez, parfois, vouloir visualiser le contenu d'un fichier alors que vous travaillez sur une solution, comme par 
exemple le compte rendu d'une reunion. Ce fichier ne doit pas faire partie de maniere permanente de la solution. Vous 
pouvez I'ouvrir avec un editeur externe et basculer entre Visual Studio et cet editeur externe, mais il est plus pratique 
de visualiser le fichier directement dans I'environnement Visual Studio. 

■ Utilisez I'option Ouvrir un fichier du menu Fichier. 

La boite de dialogue vous permet de choisir le fichier a ouvrir. En fonction du type de fichier, un editeur par defaut lui 
sera automatiquement associe pour permettre sa modification. II est parfois utile de pouvoir choisir I'editeur associe a 
un fichier. Pour cela, le bouton Ouvrir de la boite de dialogue dispose d'un menu proposant I'option Ouvrir avec 
permettant le choix de I'editeur associe au fichier. 
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Ouvrirun fkhi 
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ftlom de fichier r 



f ypss do Jichieff [tousIcs Fichiers (*.*) 



3 
3 



Cuvrir 



Duvrr 



La boite de dialogue suivante vous propose la liste des editeurs disponibles. 



Ouvrir avec - ntuser.dat. LOG 




■ Choisissez I'editeur associe au fichier sur lequel vous souhaitez travailler et validez. 



Le fichier est alors disponible dans le dossier Fichiers divers de la solution. Comme le dossier Elements de solution, le 
dossier Fichiers divers n'existe pas, par defaut, dans la solution mais est cree automatiquement lors de I'ouverture d'un 
fichier. 

II sera visible dans I'explorateur de solutions uniquement si I'option correspondante est activee dans I'environnement 
Visual Studio. Pour cela, ouvrez le menu Outils - Options, puis dans la boite de dialogue, choisissez I'option 
Environnement - Documents et activez I'option Afficher les fichiers divers dans I'explorateur de solutions. Comme le 
dossier Elements de solution, ce dossier est un dossier "logique" et ne correspond pas a un emplacement sur le 
disque. 



7. Configuration d'une solution 

Les solutions disposent de proprietes permettant de configurer leurs comportement lors de la generation ou de 
I'execution de I'application. Ces differentes proprietes sont regroupees dans une boite de dialogue accessible par 
I'option Proprietes du menu contextuel d'une solution. Quatre categories de proprietes sont disponibles : 



© ENI Editions - All rigths reserved 



- 5- 



• Projet de demarrage 



• Dependances de projets 

• Fichiers sources pour debogage 

• Configurations. 

Regardons dans le detail chacune d'entres elles. 

a. Configuration du projet de demarrage 

Cette page de proprietes de la solution determine, parmi les projets disponibles, celui ou ceux lances au demarrage 
de la solution. 



Pages de propriety de Solution 'mi c roshopCor>sole p 




Conf..-:---.iir l r, . |won applicable T I gSte¥orjTi£ r |kcti applicable 
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Fichiers sources pour le debo 
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J J 



C ^election: actMele 
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3 



Projet 


Action 


appl Console 


Autoun 


eorttraJeurs 


Aucun 


DAL 


Aucun 


entices 


Auoun 


testClassesEntites 


Auoun 


best ft essou roes 




vues£oncale 


lAwoun = 




AuCuf* 




Dcrn_rr*r 

Executer sans deboiaue 












Deux options sont disponibles : 
Projet de demarrage unique 

Une combobox propose la liste des projets disponibles dans la solution parmi lesquels vous devez choisir celui qui 
sera execute au demarrage de la solution. Ce projet est par la suite signale dans I'explorateur de solution par son 
nom apparaissant en gras. Cette selection peut egalement se faire par le menu contextuel de I'explorateur de 
solutions en choisissant I'option Definir comme projet de demarrage. 

Plusieurs projets de demarrage 

Un tableau presente la liste de tous les projets disponibles dans la solution. Pour chacun d'eux, vous devez indiquer 
Taction a executer lors du lancement de I'application. Les choix possibles sont : 

• Aucune action 

• Demarrer le projet 

• Executer le projet sans debogage. 



Si vous choisissez de demarrer plusieurs projets au lancement de la solution, vous devez egalement indiquer I'ordre 



dans leg u el ce s p roje 



boutons 



et 



s seront demarres. Cet ordre correspond en fait a I'ordre des projets dans le tableau. Les 
permettent de modifier cet ordre. 
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b. Dependances de projet 



La generation de certains projets necessite au prealable la generation d'autres projets. C'est le cas, par exemple, si 
vous demandez la generation d'un projet qui utilise une reference vers un autre projet : celui-ci est alors une 
dependance du projet initial. 

La page de proprietes suivante permet de configurer ces dependances. 



Pages de propriety de Solution 'rnrcj-oshopConsole' 



Configuration i \mn applicable T I itt-fntm : |kcti applicable 



~H Cestf DTrnaire: de ccijinriurations . , . 



H- Pnpriates acninujnes 
■ Pwspet de cfSffiarfage 
Dependences duplet 



frojst t 

| tcstRessourc.es 



Fichitirs sources pour Be dcho Depend de : 
[■+] Proprietes de corf Jguratton 



J J 



appliConsole 



□! 

H controleurs 

□ DAL 

□ enW-es 

□ tetfClassesEnfcites 

63 vucsConsole 



OK 



Annuler 



■ Dans la liste des projets, selectionnez celui pour lequel vous souhaitez configurer les dependances. Les autres 

projets de la solution sont alors listes, avec, pour chacun d'eux, une case a cocher. Lors de la generation du projet, 
tous les projets dont il depend seront automatiquement regeneres, s'ils ont ete modifies depuis la derniere 
generation ou s'ils n'ont jamais ete generes. 

Certaines dependances ne peuvent etre modifiees, la case a cocher apparait alors en gris. 

C'est en general le cas, lorsqu'un projet possede une reference sur un autre projet ou que I'ajout d'une 
dependance risque de creer une boucle. Par exemple, le projetl depend du projet2 et inversement. 



Microsoft Visual Studio X 




Impossible d'ajouter cette dependance, car cela entrainerait la creation d'une dependance circulaire 



\ OK 



Les dependances de projet peuvent etre egalement configurees par le menu contextuel de I'explorateur de solutions 
avec I'option Dependances du projet. 



c. Fichiers source pour le debogage 

Lors du debogage d'une application, I'environnement Visual Studio a besoin d'acceder au fichier source du code qu'il 
est en train de deboguer. Cette page de propriete permet de specifier les repertoires qui seront analyses a la 
recherche du code source. 
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OK 



Annuler 



La liste Repertoires contenant du code source affiche le nom des repertoires qui seront scrutes a la recherche de 
code source, pendant le debogage d'une application. Cette liste peut etre geree par la barre d'outils dont les 
boutons permettent de : 



✓ 



Verifier I'existence du repertoire. 



& Ajouter un nouveau repertoire. 



Supprimer le repertoire selectionne de la liste. 
Deplacer le repertoire vers le bas dans la liste. 
Deplacer le repertoire vers le haut dans la liste. 



La liste Ne pas rechercher ces fichiers sources exclut certains fichiers de la recherche. 



d. Configurations 

Les options de configuration permettent de definir comment differentes versions d'une solution et des projets qui la 
composent seront generees. Par defaut, deux configurations sont disponibles pour une solution dans Visual 
Studio : la configuration Debug et la configuration Release. 

Pour chacun des projets presents dans la solution, les deux configurations seront egalement disponibles. Au niveau 
du projet, les configurations permettent de definir des options de compilations. La configuration Debug est utilisee 
pendant le developpement et les tests du projet. La configuration Release est utilisee pour la generation finale du 
projet. 
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£pcfiquer 



Nous avons en fait un systeme a trois niveaux : pour chaque configuration de solution, on indique quelle 
configuration utiliser pour chaque projet et, pour chaque configuration de projet, on specifie des options de 
compilation. Les options de compilation sont modifiables au niveau des proprietes du projet. 
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Les pro jets 



Les projets sont les conteneurs de deuxieme niveau dans une application. lis sont utilises pour organiser logiquement, 
gerer, generer et deboguer les composants d'une application. La generation d'un projet produit, en general, un fichier 
executable ou une bibliotheque dll. Un projet peut etre tres simple et ne contenir que deux elements, un fichier source 
(.vb) et le fichier de projet (.vbproj). Plus generalement, les projets contiennent de nombreux fichiers source, des scripts 
de base de donnees, des references vers des services Web, des ressources graphiques, etc. 

Visual Studio propose par defaut un ensemble de modeles de projets. Ces modeles fournissent un point de depart pour 
la majorite des besoins dans le developpement d'une application. Pour des cas plus specifiques, vous pouvez creer vos 
propres modeles de projet. 



1. Creation d'un projet 

■ Pour la creation d'un projet, activez le menu Fichier - Nouveau projet. Une boite de dialogue vous propose alors de 
choisir les caracteristiques du nouveau projet. 

■ Choisissez tout d'abord la version du Framework pour laquelle vous souhaitez developper le projet. La version 
choisie influence les types de projets que vous pouvez creer. 

■ Choisissez ensuite le langage dans lequel vous souhaitez developper le projet. Les choix disponibles dependent des 
langages installes dans Visual Studio. Dans notre cas, nous choisissons bien sur Visual Basic. 

■ Choisissez ensuite le type de projet que vous souhaitez developper. La boite de dialogue propose alors les 
differents modeles de projet disponibles en fonction du type de projet choisi. 

■ Apres avoir fait votre choix, indiquez un nom pour le projet, un emplacement pour les fichiers du projet et un nom 
pour la solution. Le modele selectionne est alors utilise par I'assistant pour creer les elements du projet. 

Apres quelques instants le projet est disponible dans I'explorateur de solutions. 

■ Personnalisez maintenant I'ebauche creee. 



a. Les modeles de projets 

De nombreux modeles de projets sont disponibles dans Visual Studio. Ces modeles fournissent les elements de base 
necessaires pour developper chaque type de projet. lis contiennent toujours au moins le fichier de projet, plus un 
exemplaire de I'element le plus utilise pour le type de projet correspondant ; par exemple, pour un projet de 
bibliotheque classe, un fichier source contenant une ebauche de classe est cree. Les modeles fournissent egalement 
des references et des importations par defaut pour les bibliotheques et les espaces de noms les plus utiles en 
fonction du type de projet. 

Application Windows 

Ce modele de projet est certainement le plus utilise. II permet le developpement d'application Windows standards. Le 
modele ajoute au projet les elements suivants : 

• Un fichier Assemblylnfo.vb utilise pour la description de I'application avec notamment les informations 
concernant la version. 

• Un formulaire de base avec son fichier source forml.vb. 

Les references suivantes sont automatiquement ajoutees et importees : 

• System 

• System. Core 

• System. Data 
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• System. Data. DataSetExtensions 

• System. Deployment 

• System. Drawing 

• System. Windows. Forms 

• System. Xml 

• System. Xml. Linq 

Bibliotheque de classe 

Ce modele de projet est utilisable pour creer des classes et des composants qui pourront par la suite, etre partages 
avec d'autres projets. Les elements suivants sont automatiquement ajoutes au projet : 

• Un fichier Assemblylnfo.vb utilise pour la description du projet avec notamment les informations concernant la 
version. 

• Une classe de base avec son fichier source classl.vb. 

Les references suivantes sont automatiquement ajoutees et importees : 

• System 

• System. Core 

• System. Data 

• System. Data. DataSetExtensions 

• System. Xml 

• System. Xml. Linq 

Bibliotheque de controles Windows 

Comme le modele precedent, ce type de projet permet de creer une bibliotheque de classes utilisable dans d'autres 
projets. Cette bibliotheque est plus specifique, puisqu'elle est dediee a la creation de controles, utilisables par la 
suite dans une application Windows. Ces controles etendent la boite a outils deja disponible dans les applications 
Windows. Les elements suivants sont automatiquement ajoutes au projet : 

• Un fichier Assemblylnfo.vb utilise pour la description du projet avec notamment les informations concernant la 
version. 

• Une classe usercontroii heritant de la classe system. windows .Forms .user Control fournissant les 
fonctionnalites de base pour un controle Windows, avec son fichier source usercontroii . vb. 

Les references suivantes sont automatiquement ajoutees et importees : 

• System 

• System. Core 

• System. Data 
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• System. Data. DataSetExtensions 



• System. Drawing 

• System. Windows. Forms 

• System. Xml 

• System. Xml. Linq 

Application console 

Ce type d'application est destine a etre execute a partir de la ligne de commande d'une fenetre de invite de 
commande. Elle est bien sur congue sans interface graphique, les entrees/sorties se faisant a partir de la ligne de 
commande et vers la console. 

Ce type d'application est tres pratique pour realiser des tests avec Visual Basic, car elle permet de se concentrer sur 
un point particulier sans avoir a se soucier de I'aspect presentation de I'application. 

De nombreux exemples, presents dans cet ouvrage, sont bases sur une application en mode console. II faut 
cependant avouer que, mis a part sa simplicity de creation, ce type d'application est devenu un peu obsolete. 

Les elements suivants sont ajoutes par defaut au projet : 

• Un fichier Assembiyinf o . vb utilise pour la description du projet avec notamment les informations concernant la 
version. 

• Une classe de base avec son fichier source ciassi.vb. 

Les references suivantes sont automatiquement ajoutees et importees : 

• System 

• System. Core 

• System. Data 

• System. Data. DataSetExtensions 

• System. Deployment 

• System. Xml 

• System. Xml. Linq 

Service Windows 

Ce modele de projet est congu pour la creation d'applications s'executant en tache de fond sur le systeme. Le 
lancement de ce type peut etre effectue automatiquement au demarrage du systeme et ne necessite pas qu'une 
session utilisateur soit ouverte pour pouvoir s'executer. 

Ce type d'application est depourvu d'interface utilisateur. Si des informations doivent etre communiquees a 
I'utilisateur, elles devront transiter par les journaux systeme, consumables, par I'observateur d'evenements. Les 
elements suivants seront ajoutes au projet : 

• Un fichier Assembiyinf o .vb utilise pour la description du projet avec notamment les informations concernant la 
version. 

• Une classe de base avec le squelette des procedures onstart et onstop appelees automatiquement au 
demarrage et a I'arret du service. 

Les references suivantes sont automatiquement ajoutees et importees : 
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• System 

• System. Core 

• System. Data 

• System. Data. DataSetExtensions 

• System. Deployment 

• System. ServiceProcess 

• System. Xml 

• System. Xml. Linq 

Application WPF 

Ce modele de projet permet de beneficier du nouveau systeme d'affichage graphique de Windows, utilise dans 
Windows Vista. 

Les elements suivants sont automatiquement ajoutes au projet : 

• Un fichier Assembiyinfo . vb utilise pour la description de I'application avec notamment les informations 
concernant la version. 

• Un fichier Application. Xaml et son fichier de code associe, Application. Xaml.vb, permettant la gestion des 
evenements declenches au niveau de I'application. 

• Une fenetre de base Windowl.Xaml et son fichier de code associe, Windowl. Xaml.vb. 
Les references suivantes sont automatiquement ajoutees et importees : 

• PresentationCore 

• PresentationFramework 

• System 

• System. Core 

• System. Data 

• System. Data. dataSetExtensions 

• System. Xml 

• System. Xml. Linq 

• WindowsBase 

Bibliotheque de controles WPF 

Comme la bibliotheque de controles Windows, ce type de projet permet d'etendre la boite a outils deja disponible 
dans les applications WPF. Les elements suivants sont ajoutes au projet. 
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• Un fichier Assembiyinfo . vb utilise pour la description de l'application avec notamment les informations 
concernant la version. 

• Un fichier UserControll.xaml pour la definition de I'aspect graphique du controle. 

• Un fichier UserControll.xaml. vb pour le code associe a ce controle. 
Les references suivantes sont automatiquement ajoutees et importees : 

• PresentationCore 

• PresentationFramework 

• System 

• System. Core 

• System. Data 

• System. Data. dataSetExtensions 

• System. Xml 

• System. Xml. Linq 

• WindowsBase 

Bibliotheque de controles WPF personnalises 

Ce type de projet a egalement pour vocation d'etendre la boite a outils disponible pour les applications WPF. 
Contrairement au type de projet precedent, les controles ne sont pas crees de toute piece, mais sont bases sur des 
controles existants dont ils etendent les caracteristiques. 

Les references et importations sont identiques au type de projet precedent. 
Projet vide 

Ce modele doit etre utilise lorsque vous souhaitez creer votre propre type de projet. Seul le fichier projet est cree. 
Par contre, aucun autre element n'est ajoute automatiquement et aucune reference n'est creee ou importee. 

b. Creation de modele de projet 

Vous pouvez creer votre propre modele de projet en fonction de vos habitudes de developpement et faire en sorte 
qu'il apparaisse parmi les modeles predefinis. 

Vous devez concevoir les elements suivants : 

• Un fichier de definition contenant les metadonnees du modele. Ce fichier est utilise par Visual Studio pour 

I'affichage du projet dans I'environnement de developpement et pour I'affectation de proprietes par defaut au 
projet. Ces informations sont contenues dans un fichier XML ayant I'extension .vstemplate. 

• Un fichier pour le projet (.vbproj). 

• Les fichiers sources et ressources inclus par defaut lors de la creation d'un projet a partir de ce modele. 

C\ Ces fichiers doivent etre compresses dans un fichier zip. Le fichier zip doit contenir les fichiers individuellement 
v et non le dossier dans lequel ils sont places. 

Le fichier .vstemplate doit avoir le format suivant : 



© ENI Editions - All rigths reserved 



- 5- 



<VSTemplate Version=" 2 . 0 . 0 " 

xmlns="http : // schema s .microsoft . com/ devel ope r/vs tempi ate/20 05" Type="Pro ject "> 
<TemplateData> 

<Name>AppliPerso</Name> 

<Description>creation cT un pro jet avec une configuration personalise 
</Description> 

<Pro ject Type>VisualBasic< /Pro ject Type> 
<Def aultName>AppliPerso</Def aultName> 
</TemplateData> 
< Tempi at eContent > 

<Pro ject File="AppliPerso . vbpro j "> 

<Pro ject Item>AssemblyInf o . vb</Pro ject Item> 
<Pro ject Item>Feuillel . vb</Pro ject Item> 
<Pro ject Item>Feuillel . Designer . vb</Pro ject Item> 
<Pro ject Item>Feuillel . resx</Pro ject Item> 
</Pro ject> 
</ Tempi at eContent > 
</VSTemplate> 

On retrouve dans ce fichier : 
Dans la section Name 

Le nom affiche par la boite de dialogue de creation d'un nouveau projet. 

Dans la section Description 

Une description detaillee du projet. 

Dans la section Project Type 

Le nom du dossier dans lequel ce projet sera classe dans la boite de dialogue de creation de projet. 
Dans la section Default Name 

Le nom utilise par defaut pour tous les projets crees a partir de ce modele. Ce nom est complete par un suffixe 
numerique a la creation du projet. 

Dans la section Project File 

Le nom du fichier projet associe au modele. Ce fichier doit etre present dans le fichier zip du modele. 
Dans les sections Projectltem 

Les elements faisant partie du projet. Ces elements doivent egalement etre disponibles dans le fichier zip. 

c. Modification d'un modele existant 

La modification d'un modele consiste a utiliser un fichier zip existant contenant les elements necessaires au projet et 
y ajouter des elements supplementaires. Si des fichiers sont ajoutes au modele, ils doivent etre places dans le fichier 
zip et egalement references dans le fichier .vstemplate. Les modeles predefinis de Visual Studio sont places dans le 
repertoire C:\Program Files\Microsoft Visual Studio 9.0\Common7\IDE\ProjectTemplates\ VisualBasic. Pour que les 
modifications soient prises en compte, vous devez mettre a jour le cache utilise par Visual Studio. Pour cela : 

■ Ouvrez une fenetre de commande Visual Studio. 

■ Saisissez la commande devenv /setup. Soyez patient car cette commande est assez longue a s'executer. Apres 
execution de la commande, vos modifications sont disponibles dans le modele de projet. 

d. Utilisation d'un projet existant comme modele 

C'est peut-etre la solution la plus simple pour construire un modele de projet. 
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■ Dans un premier temps, creez le modele comme un projet ordinaire. 



■ Une fois votre projet finalise, exportez-le comme modele. Le menu Fichier - Exporter le modele demarre un 
assistant pour vous guider pendant la creation du modele. 



Assistant Enpurtdt ran de modele 




Choi&i r un type de modele 



Cei Assitfant vous pe* met dexportoer un projet ou un element de projet de la solution actuelle vers un modele 
qui peut ensuite servir de bare ausc pro jets ulterieurs. 

Quel type de modele souhaitez-vous creer 7 
(* [Modefe de picnet j 

nn 1 1 1 1 1 1 1 1 1 1 i'i n 1 1 1 1 1 1 1 1 1 1 1 , _ ■ i n 1 1 1 1 1 1 1 1 

Un rawdele de projet permet a un utilisateur de creer un projet base sur ^exportation de votre projet. 
L'utilrcateur est en nnesure d'utiliser voire module a partir de la bc&e de dialogue Nouveau projet lorsqu'il 
s'agit de proiets clients et a partir de la bofte de dialogue touveau site Web lorsqu'il s"agit de sites Web. 

C Modete d'elifflSQt 

Un modele dfelement peniiet a un utilisateur cTajouber votre element a 3un de ses projets ejdstants. 
L'utilisateur a acce* a voUe module a partir de la boite de dalogue Ajouter un ncuvel element. 

A partir de quel projet souhaSez-vous creer un ;modele ? 



entices 



"3 




^Precedent 


^uivant > | 


T 


erminei 


i 



Annufer 



Cette premiere boite de dialogue vous propose de choisir le projet que vous souhaitez exporter ainsi que, la rubrique 
de la boite de dialogue de creation de projet dans laquelle sera place le futur modele. 



Assists nt EHpartdti on de modeJe 



i ■ i iiiiini 



Selettionner les options du modele 



F 



I cone du modele : 



Norn du modele : 



| define par difauO 
Description du modele : 



entile* 




Application de visualisation d'un catalogue 



Emplacement de sortie : 




D:\Documents anal 5ettings\Adminl5trafeeur\Res doDumeriT^VisuaJ Studio 200S\My Exported Templetes\entltes 

F [mporter autofflatiquement le modefe darts Visual Studio 

rV dfficher une fenetre d'explorateur pour le dossier des fEhiers de sortie 



< Precedent 


Suivant > | 


Xemniner 


Anrnier | 



Cette deuxieme boite de dialogue vous invite a choisir une icone pour votre modele de projet, un nom pour le modele 
et une description. Deux options supplementaires vous permettent de prendre en compte immediatement le nouveau 
modele dans Visual Studio et de vous presenter le resultat de la generation en vous affichant le contenu du fichier zip 
cree. Apres validation de cette derniere boite de dialogue, le nouveau modele de projet est disponible dans Visual 
Studio. 



C\ Cette methode est tres simple pour construire un nouveau modele de projet et evite de se torturer I'esprit 
^ avec la syntaxe du fichier .vstemplate. 
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Dans le cadre d'un developpement en equipe, il peut etre interessant de partager les modeles personnalises entre 
tous les membres de I'equipe. 



Recopiez les fichiers zip sur un partage reseau. 

Configurez I'environnement Visual Studio pour lui permettre d'acceder aux modeles. Cette modification s'effectue 
par la boite de dialogue disponible par le menu Outils - Options. 





© EfiVfronnemerifc 
Projets et solutions 

■■ Generer et executor 
Paramefres de projet YC-S-+ 
R^pef taires de VC++- 
Valeurs par defaut 
ffl Cenirdle de code source 
CE Edibeur de texts 
CB- Ccncepteur de flux de braval 
© GoricepteuT HTML 
SS Ccwftpteur Windows Forms 
© Creation de modeles de texte 
S) l>ebogege 
'+ outtfs d'appareils 
S Oubls de base de dcmnees 
ik Outfc Office 



Emplacement rtes promts Visual 5tudk> : 



C:\Q«ufflente and Setthqs^groussard^Mes; doouments\Visual Studio Qt | [ , | 



Emplacement ties modeles de projet pour futilisateur de Visual Sbutto ; 



^srvlO^rtwdeles vb 



Emplaoement ties modeles d'efiement pour k'Utillsateur de Visual Studio : 
C:\pocumenfes and Settinos\tgroussard\Me& documentsWisua! Studio Cc 




□ 



0 Toujour* eff icher la liste d'er* eurs a la fin de la generation avec arrears 
0 5uiwe uri element actif dans TEKptorateur de solutions 
0 flf Fiqher les configurations de generation avancees 
0 foujours aff Ictier la solution 
0 Enr-egratrer let nouveaux proiete lore de Jeur creation 
0 Pre 1 venlr I'Utillsabeuf lorsque [emplacement db projet n'est pas Pliable 
0 Af F icher la fer*etie Sortie au demarrage de la generation 
] Invier a" utdiser des noms symbollques au moment de renommer les hcNers 



OK 



Annuler 



2. Modification d'un projet 

Les modeles de projets sont tres utiles pour creer rapidement les bases d'une application mais, tres frequemment, 
necessiteront I'ajout de nouveaux elements au projet. Ces ajouts se font par I'intermediaire du menu contextuel de 
I'explorateur de projet. 



Activez I'option Ajouter - Nouvel element afin de choisir le type d'element que vous souhaitez ajouter au projet. La 
boite de dialogue propose un nombre impressionnant d'elements pouvant etre ajoutes a un projet. 
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A jo liter un native I clement ■ appliConsolc 



Categories i 


Mgcfeies i 


Op! 


^3 dements communs | 


Modeler Visual Studio ir-stalles 


!~ 

A. 


Code 
Donnees 


/J Assistant Rapport 


J Ease de donnees basee sur les sec;.. 


GeViBra! 


J Base de domees locale 


M ]Bofte de dialogue 


Web 


"lEoile- de dialogue A propos de 


^1 Cache de base de donnees locale 
Classe CON 


Windows Fwms 


^iCfesse 


Reporting 
Workflow 


djjClasse Component 
^■1 Controls utilsateur 


j^Conbrgle pereonna5se 
|iol DataSet 

1 u i 1 


WPF 


Ddoramrne de classes 


_. - jEcran de demarrace 




l Fishier de cods 


j Fichier deressourees 




SjFichiEr JScript 
-jFichier XML 


Fichier teste 

Jf fithier xai 




^Forrw/aire (fe connexion 


] Formulate Esplorarte^ 




jpFormulaire parent CvTDI 


■ 'rJterrace 




#|Module 


Rapport v 


<fJo descrptiorc available > 



Norn : 



Whdows App^cation 1 1 ■ vb 




■ Indiquez ensuite un nom pour le fichier contenant le nouvel element. 



C\ En fonction des types de projet, des options supplementaires permettant rapidement d'ajouter un nouvel 
v element sont disponibles dans le menu contextuel. Celles-ci affichent simplement la boite de dialogue 
precedente avec le type d'element correspondant deja preselectionne. 



II est egalement possible de rej>rendre un element existant dans un autre projet et de I'ajouter a un projet. Utilisez, 
dans ce cas, I'option Ajouter - Element existant du menu contextuel de I'explorateur de projets. Une boite de dialogue 
vous propose la selection du fichier a inclure dans le projet. 



Ajouter un element ewistant - appliConsole 



Regarder dais : J O prSncipale 




Bureau 




Wes Projets 




Pos*o de tra^il 



£)bin 

i_J My Project 

Jij Assemblylnf o,vb 
principals, vb 
Settings, vb 



Norm de fichier : 



Types de Fichiers ; 



3 



Ajouter 



Fichiers de code VB (* . vb; * . resKj* . settings;* . xsd; * . v T 



Annuler 



A 



Le bouton Ajouter de cette boite de dialogue comporte un menu permettant d'ajouter le fichier normalement (une 
copie locale du fichier est alors realisee) ou de creer un lien sur le fichier (le fichier original est utilise). II faut etre 
prudent avec cette possibility car le fichier "n'appartient pas" reellement a ('application mais peut etre partage entre 
plusieurs applications. Si le fichier est supprime du disque, toutes les applications I'utilisant ne pourront plus etre 
compilees. 



C\ La gestion des fichiers dans I'explorateur de solutions est identique a la gestion des fichiers dans I'explorateur 
" Windows. Les fichiers peuvent etre copies et colles ou deplaces par un clique-glisse d'un dossier a un autre. 
L'utilisation des touches [Ctrl], [Shift] et [Ctrl] [Shift] pendant le clique-glisse modifie Taction realisee. Un clique-glisse 
au sein d'un meme proiet effectue un deplacement de fichier. S'il est realise entre deux proiets, e'est alors une copie 
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de fichier qui est effectuee. Ce comportement peut etre modifie par I'utilisation de la touche [Shift] lors du clique- 
glisse. Pour realiser une copie de fichier au sein d'un projet, la touche [Ctrl] sera utilisee conjointement avec le 
clique-glisse. La creation d'un lien s'effectue avec la combinaison de touches [Ctrl] [Shift] lors du clique-glisse. 



Afin de retirer un element d'un projet, deux options sont accessibles par le menu contextuel de I'explorateur de 
solutions : 

• L'option Supprimer supprime le fichier du projet mais egalement du disque. 

• L'option Exclure du projet retire le fichier du projet, mais ne le supprime pas du disque. Cette option est utile 
si d'autres projets utilisent ce fichier par I'intermediaire d'un lien. 



3. Proprietes des projets 

Les projets sont des elements fondamentaux de la conception d'une application avec Visual Basic. lis possedent de 
nombreuses proprietes permettant de modifier leurs comportements au moment de la conception ou de I'execution de 
I'application. L'ensemble des proprietes sont accessibles par une boTte de dialogue presentant, par I'intermediaire 
d'onglets, les differentes rubriques de configuration d'un projet. 



Activez cette boite de dialogue par l'option Proprietes du menu contextuel de I'explorateur de projet ou par le 
bouton 



de la barre d'outils de I'explorateur de projet. 



a. Proprietes d'application 

Les proprietes presentes sur cet onglet vont permettre de configurer le comportement de I'application 



Norn de I'assembly : 



indows Application! 



Type d'application : 



Application Windows Forms 



Formulaire de demarrage : 



Forrml 



Espace de norms racine : 



WindowsApplicationl 



Icone : 



(Icone par defaut) 



v 



□ 



Informations de I'assembly. . . 



Afficher les parametres UAC 



0 Activer Infrastructure de I'application 

Proprietes de infrastructure d'application Windows 

0 Activer les styles visuels XP 

1 I Application a instance unique 
0 Enregistrer My. Settings lors de I'arret 

Mode d'authentification : 



Windows 



Mode d'arret : 



A la fermeture du formulaire de demarrage 



Ecran de demarrage : 



(Aucune) 



v 



Afficher les evenements de I'application 



Nom de I'assembly 

Cette propriete determine le nom utilise pour le fichier resultant de la compilation de I'application. Par defaut, ce 
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fichier porte le meme nom que le projet mais ils peuvent etre modifies independamment Tun de I'autre. L'extension 
associee au fichier depend du type du projet. 



Type d'application 

Cette propriete determine le type d'application generee par la compilation du projet. En regie generale, cette 
propriete est determinee par le modele choisi au moment de la creation du projet. Cette propriete est tres rarement 
modifiee par la suite car elle depend enormement du code de votre projet (si vous avez congu votre application 
comme une application Windows et que souhaitez la considerer comme une application console, il risque d'y avoir 
beaucoup de code inutile !). 

Formulaire de demarrage 

Cette propriete determine le point d'entree dans I'application, lors de son execution. Generalement, elle correspond a 
la fenetre principale de I'application ou a une procedure Sub Main. Cette propriete n'est disponible que pour les 
projets pouvant s'executer de maniere autonome. Elle est inutile pour les projets de type bibliotheque. 

Espace de noms racine 

Tous les elements du projet, accessibles a partir d'un autre projet, appartiennent a I'espace de nom defini par cette 
propriete. Celle-ci vient s'ajouter aux eventuels espaces de noms, definis au niveau du code lui-meme. Par defaut, 
cette propriete correspond au nom du projet mais elle peut etre modifiee independamment de celui-ci. Elle peut 
meme etre vide vous permettant ainsi de gerer les espaces de noms directement dans le code. 

Icone 

Cette propriete configure I'icone associee au fichier compile du projet, lorsqu'il est affiche dans I'explorateur Windows 
ou lorsque I'application apparait sur la barre des taches de Windows. 

Informations de I'assembly 

Cette option permet de fournir des informations sur le code genere par la compilation du projet. Une boite de 
dialogue permet de remplir differentes rubriques concernant la description du projet. 



Informations de I'assembly 



Titre : 

Description : 
5ociete : 
Produit : 
Copyright : 
Marque : 



Version de fichier : 



GUID : 



Langage neutre : 



Rendre I'assembly visible par COM 




testl 



ENI 



testl 



Copyright © ENI 2005 



Version de I'assembly : II 



1 



Jj2<J 




1077ce6e-b4S9-4a79-962c-654d95dl63f0 




L'utilisateur de votre code pourra consulter ses informations en affichant les proprietes du fichier compile dans 
I'explorateur Windows. 



Afficher les para metres UAC 

Cette option permet de determiner le niveau d'execution requis pour Tapplication. Ces informations sont utilisees par 
le mecanisme User Account Control (UAC) de Windows Vista. II determine sous quelle identite va etre execute le code 
de l'application. Trois valeurs sont possibles 



• aslnvoker : Tapplication s'execute avec I'identite actuelle de l'utilisateur et ne demande pas d'augmentation 
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de privileges. 



• highestAvailable : I'application s'execute avec le plus haut niveau de privileges de I'utilisateur. 

• requireAdministrator : I'application doit s'executer avec le privilege administrateur et UAC peut vous 
demander votre consentement pour accorder 1'augmentation des privileges. 



^ Pour les systemes autres que Windows Vista cette option est ignoree. 



Activer I'infrastructure de I'application 

Cette option determine si vous souhaitez activer une interaction plus evoluee entre I'application et le systeme 
d'exploitation. Si cette option est active, I'element de demarrage de I'application doit obligatoirement etre une feuille. 
L'utilisation de cette option active la disponibilite des proprietes suivantes. 

Activer les styles visuels XP 

Si cette option est activee et que I'application s'execute sur un systeme Windows XP, alors I'interface utilisateur de 
I'application s'adaptera au theme Windows actif. 

Application a instance unique 

Par defaut, vous pouvez lancer autant d'exemplaires d'une meme application que vous le souhaitez sur un 
poste ; toutefois, il peut parfois etre utile de n'autoriser le fonctionnement que d'un seul exemplaire de I'application a 
un instant donne (probleme de licence d'utilisation, preservation des ressources de la machine...). L'activation de 
cette option garantit qu'il n'y aura pas plus d'un exemplaire de I'application s'executant sur la machine. Si une 
nouvelle instance est lancee alors qu'il en existe deja une sur le systeme, le focus passe immediatement sur 
I'instance existante. Au niveau de I'application, I'evenement StartupNextln stance est egalement declenche. 

Enregistrer My. settings lors de I 'a tret 

Cette option indique si les proprietes personnalisees de I'application sont sauvegardees a la fermeture de 
I'application. Ceci permet, par exemple, de memoriser les preferences de I'utilisateur. 

Mode d'authentification 

Par defaut, les applications Visual Basic utilisent I'authentification Windows pour identifier I'utilisateur de I'application. 
Si vous souhaitez gerer vous-meme cette identification, vous devez utiliser I'option Defini au niveau de I'application. 

Mode d 'arret 

Cette option determine le comportement de I'application lors de son arret. Par defaut, I'execution de I'application 
s'arrete lorsque la fenetre de demarrage de I'application est fermee, meme s'il y a d'autres fenetres actives (hormis 
bien sur une fenetre modale). L'option A la fermeture du dernier formulaire provoque I'arret de I'application a la 
fermeture de la derniere fenetre active de I'application ou lorsque les instructions My .application, exit ou end sont 
appelees explicitement dans le code. 

Ecran de demarrage 

Les ecrans d'accueil sont souvent utilises pour fournir des informations a I'utilisateur, pendant le demarrage de 
I'application. Visual Studio propose un modele d'ecran d'accueil personnalisable. Cet ecran apparait pendant le 
chargement de la fenetre principale de I'application. 

Afficher les evenements de rapplication 

Cette option permet d'acceder aux gestionnaires d'evenements de I'objet application. Ces gestionnaires 
d'evenements permettent de reagir face a differentes situations : 

Startup 

L'application demarre. 
Sta rt U p N ext I n st a n ce 

Un nouvel exemplaire de I'application vient d'etre lance. 
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Shutdown 



L'application s'arrete. 
UnHandledException 

Une exception non geree vient de se produire. 
NetworkAvailabilityChanged 

L'acces au reseau vient d'etre modifie (le cable est debranche ou rebranche). 
b. References et importations d'un projet 



Pour pouvoir utiliser des elements externes, disponibles dans un assembly, vous devez ajouter une reference a cet 
assemblage. 

La page de propriete suivante regroupe toutes les informations concernant les references d'un projet. 




Here* cnoci : 




Nfrft de la refere rtte Type ( Veritflfl I Copiftbcafe I Chefflift tf«cfeg 



System 

System.Data 

Systern.Dcploymerift 

System-Drawing 

Systern.Windaws. Fo, , 

Systam.^rii 



NET 2.0.5.0 False 

.NET 2.0.0.0 False 

.MET 2.0.0.0 false 

.h£T 2.0.Q.Q False 

■ f^T 2.Q.0.0 False 

.r-El 2.0 .0 False 



0 :\Vyr\D0^5^Mcr050Ffc mTFrm&ti*ti\*2.Q.WZA*rAm- d I 

D:\WIHD0 WS^aosoft ,rJET\Fr«^ewDrkl|v2.0. , S072?lSy3bem. Data .dll 

0 : WtfiDO WS^aosof t .NET \f raw;orWv2.0.S072ftSystem. Dcpk^rnent .dll 

D :\Wi^D0 WS!|MaosoFt ■NETV : raTTrtEVHOfkJjv2.0,S0i72^Sysbem. Draw ng ,dl 

D :\Wl^DOwS\Mcrosoft .NET^ramev/oj^v2.0.Sd?2r\ System. Wndons .Forrns.cll 

D :\WIHDOWSl|McfQ£DFt .NET^ramewej^v2.0,5ar?Z7^5^m.Mml.d!l 





... 




SypptrTifir 



Espaces denoms hnpwtcs ; 













System 




M System. Cal Is c tiers 




>; System, ColSecti&-ri.Ceneric 




0 System. Data 




System. Draw ng 




\-/\ System. Diagnostics 




E Syit-tm.Vi*ieHS,Fwrw 








□ Hicrwcft.CSharp 




□ HicfosoftrSriServer 




□ Miff 0S<^.5q|5e/v^f'. 5*rve.r 




□ MkyDsoft,.Veua&asic.Applicati:n5e; :■■ ces 




I | MiCTDSoft.WsuaBasE.CornpilerServiQcs 




Mkros^tVbua&asfc. De-ices 




□ MiCfpHJft.Vjtua&asic.fileTO 


1 



Mettre £ four haswrtallon tftfifBteyr 



Dans cette page de propriete, la liste References presente tous les assemblages actuellement references par le 
projet. 

Cette liste peut etre mise a jour a I'aide des boutons Ajouter, Supprimer, Mettre a jour la reference Web qui 

permettent respectivement, d'ajouter une reference locale ou une reference Web, de supprimer une reference ou de 
mettre a jour une reference Web. 

Le bouton Chemins d'acces des references permet d'indiquer des repertoires supplementaires contenant des 
assemblages disponibles. Ces repertoires sont scrutes a I'ouverture de la boite de dialogue d'ajout de reference et 
les eventuels assemblages qu'ils contiennent sont ajoutes a la liste des assemblages disponibles. Lorsqu'une 
reference est ajoutee a un assemblage, le fichier original est utilise lors de la premiere execution de l'application. 
Vous pouvez utiliser la creation automatique d'une copie locale de ce fichier dans le repertoire de l'application. Pour 
cela : 



■ Modifiez la propriete copy Local de la reference concernee. Apres avoir selectionne la reference, vous pouvez 
modifier cette propriete dans la fenetre de proprietes de Visual Studio. 
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Le bouton References inutilisees propose la liste de toutes les references non utilisees dans le code et vous 
propose de les supprimer du projet. 

Les elements disponibles dans les assemblages references font tres certainement partie d'un espace de nom. Pour 
pouvoir les utiliser facilement il est possible d'importer automatiquement certains espaces de nom. La liste Espaces 
de noms importes reprend les espaces de nom importes automatiquement dans tous les codes du projet. Vous 
pouvez completer cette liste en saisissant dans la zone de texte le nom de I'espace de nom importe et en validant 
avec le bouton Ajouter une importation utilisateur. 

c. Proprietes de debogage 

Les proprietes presentes sur cette page determinent le comportement du projet lors de son debogage. 




GpnFlggrsWon ! |(Debug) active ^ Ptete-Forrr* \ | (Any CPU) active 3 

Action de cWmarracje 

(* \ Demarrer ie projet \ 




C Demarrer le programme externe : |" 
C D£ffiarrer le navigator avec HJSI- 1 [ 
Options de demarrage 




Argunrients de la ligne de commande : 
Repertoire de travail j j 
l~" Utfeer I'tardftnateur fjstant [ 

Activer les de bogueurs 



tj Activer le cMbogag^cte code non mnzqi 

f Activer le debogage SQL Server 

P stiver le processus d'h^ber^emenc vitaiai Stucfco 



Action de demarrage 

Cette propriete determine le comportement du projet lors du demarrage du debogage. Trois options sont possibles : 

• Demarrer le projet indique que le projet lui-meme doit etre execute. Cette option n'est a utiliser que pour les 
projets d'application Windows ou les projets d'application console. 

• Demarrer le programme externe permet de provoquer I'execution d'une application externe qui va se 

charger de faire des appels au code notre projet. Cette option est utilisee pour le debogage de bibliotheques 
de classes. 

• Demarrer le navigateur avec I'URL est identique a I'option precedente, mis a part que Tapplication 
demarree est une application Web. 

Options de demarrage 

Arguments de la ligne de commande precise les arguments passes a Tapplication lors de son execution par Visual 
Studio. Ces arguments peuvent etre utilises par le code pour determiner Taction a entreprendre : par exemple, 
demarrer Tapplication en mode maintenance. 

Repertoire de travail permet de specifier le repertoire actif pendant I'execution de Tapplication. 

Utiliser I'ordinateur distant autorise le debogage d'une application s'executant sur une autre machine. Dans ce cas, 
le nom de la machine distante, sur laquelle le code va s'executer, est a indiquer. 

Activer les debogueurs 
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Ces options determinent les differents types de debogueur actifs, en complement du debogueur de code manage de 
Visual Studio. 



d. Proprietes de compilation 

Les proprietes de cette page concernent le fonctionnement du compilateur et son eventuelle optimisation 



Configuration : (Debug) active 



Ptateforme : (Any CPU) active 



v 
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Chemin de sortie de la generation 

Cette propriete indique le repertoire dans lequel est copie le fichier resultant de la compilation du projet. Par defaut, il 
s'agit du sous-repertoire bin du repertoire dans lequel se trouve le projet. 

Option Explicit 

Cette option permet d'exiger ou non que toute variable soit declaree avant d'etre utilisee. El le s'applique a tous les 
fichiers source d'un projet. II est cependant possible, pour un fichier particulier, de modifier cette option en ajoutant la 
directive option Explicit on ou Option Explicit off en debut de fichier. 

Option Strict 

Cette option permet de controler les conversions effectuees. Si une conversion restrictive est tentee, le compilateur 
genere une erreur. Comme I'option precedente, celle-ci s'applique a tous les fichiers source d'un projet et peut etre 
modifiee pour un projet particulier avec la directive option strict on ou option strict off. 

Option Compare 

Cette option determine comment la comparaison de chaines de caracteres est effectuee dans I'application. Avec la 
valeur Binary, I'application fait une distinction entre les caracteres en minuscule et en majuscule, lors d'une 
comparaison. La valeur Text permet d'eviter cette distinction. 

Option Infer 

Cette option indique si I'inference des types des variables locales est active. Avec cette option, le compilateur 
determine de lui-meme le type des variables a partir des valeurs qui leur sont affectees. 



Avertissements 

Le compilateur est capable de detecter des problemes potentiels dans votre code et de generer des avertissements 
associes. Vous avez la possibility de configurer Taction entreprise par le compilateur pour differentes categories de 
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problemes. Les trois actions possibles sont : 

• Aucun : le compilateur ignore le probleme. 

• Avertissement : le compilateur genere un avertissement dans la liste des taches. 

• Erreur : le compilateur genere une erreur de compilation. 

Vous pouvez egalement devalider tous les warnings en utilisant I'option Desactiver tous les avertissements ou, au 
contraire, les traiter comme des erreurs avec I'option Considerer tous les avertissements comme des erreurs. 

Generer le fichier de documentation XML 

Avec cette option, le compilateur recherche dans le code les commentaires speciaux places grace aux caracteres v " et 
les utilise pour generer le fichier de documentation. Ce fichier est cree dans le repertoire dans lequel est genere le 
fichier compile. 

Options avancees de compilation 

Cette option propose une boite de dialogue permettant la configuration avancee du compilateur. 
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Cette boite de dialogue permet la configuration des options suivantes : 

• Supprimer la verification de debordement lors de calculs sur des entiers. 

• Autoriser les optimisations de code lors de la compilation. 

• Specifier I'adresse a laquelle une bibliotheque dll sera chargee. 

• Indiquer si des informations de debogage sont ajoutees au resultat de la compilation 

• Definir les constantes de compilation. 

• Demander la generation d'informations pour permettre la serialisation XML. 



• Indiquer un type de processeur specifique pour I'execution de cette application. 
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• Indiquer la version du framework utilisee pour I'execution de l'application. 



e. Ressources d'un projet 

Les ressources sont utilisees pour externaliser certains elements d'une application. Elles permettent de realiser 
rapidement des modifications simples d'une application, sans avoir a rechercher dans des milliers de lignes de code. 
L'utilisation la plus classique consiste a separer, du code, les constantes chaine de caracteres. Vous pouvez 
egalement creer des ressources icones, images, fichier texte, ou audio. Toutes les ressources sont gerees par cette 
boite de dialogue. 
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■ Pour chaque ressource, indiquez un nom et une valeur. Le nom sera bien sur utilise dans le code pour pouvoir 
recuperer la valeur. 

En fonction du type de ressource, vous avez a votre disposition un editeur adapte pour modifier la ressource. Les 
ressources peuvent etre liees ou embarquees, en fonction de leur type. Une ressource liee est stockee dans son 
propre fichier et le fichier Resources. resx contient simplement un lien vers le fichier original. Une ressource 
embarquee est stockee directement dans le fichier Resources. resx de l'application. Dans tous les cas, les ressources 
seront compilees dans I'executable de Tapplication. 

Voyons maintenant comment acceder aux ressources a partir du code de Tapplication. Toutes les ressources sont 
accessibles par la propriete Resources de I'objet My. L'exemple suivant utilise : 

• Une ressource chaine de caracteres (MessageBienvenueFr) 

• Une ressource icon (IconAppli) 

• Une ressource image bitmap (ImageFond) 

• Un fichier son (Musique) 



Private Sub Forml_Load (ByVal sender As Object, ByVal e As System. EventArgs ) 
Handles Me. Load 

Me. Icon = My . Resources . IconAppli 

Me . Backgroundlmage = My . Resources . ImageFond 

My . Computer . Audio . Play (My . Resources . Musique, AudioPlayMode . BackgroundLoop) 
MsgBox (My . Resources . MessageBienvenueFr) 
End Sub 



f. Parametres d'application 

Les parametres d'application sont, en general, utilises pour stocker et charger dynamiquement les parametres de 
configuration d'une application, comme par exemple, les preferences de I'utilisateur ou les derniers fichiers utilises 
dans l'application. 

Les parametres doivent d'abord etre crees dans la page de proprietes suivante. 
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Pour chaque parametre, vous devez fournir un nom, utilise pour manipuler le parametre dans le code et un type, pour 
le parametre. 

Vous devez egalement fournir une portee pour le parametre. Deux choix sont possibles : 
Utilisateur 

Le parametre peut etre modifie pendant le fonctionnement de I'application. 
Application 

Le parametre est en lecture seule pendant I'execution et peut uniquement etre modifie par I'intermediaire de cette 
boite de dialogue. 

La derniere chose a faire est de specifier une valeur pour le parametre. 

Nous allons maintenant etudier comment manipuler les parametres dans le code. Nous devons realiser trois 
operations. 

• Au demarrage de I'application, nous devons charger les parametres. L'acces aux para- metres se fait par la 
propriete Settings de I'objet My. 

My .Set tings . Reload ( ) 

• Pendant I'execution de I'application, nous avons acces aux parametres egalement par cette propriete 

Settings de I'objet My, a laquelle nous ajoutons le nom du parametre. Ceci nous permet la lecture de la valeur 
du parametre ou I'affectation d'une valeur au parametre. 

Me.BackColor = My . Sett ings . CouleurFond 
My . Sett ings . DerniereUt il i sat ion = Now 

• A la fermeture de I'application, nous devons enfin sauvegarder les parametres en utilisant la methode Save : 

My .Set tings . Save ( ) 

Pour chaque utilisateur de I'application, une version distincte des parametres est sauvegardee. 

g. Autres parametres de configuration 

Les autres rubriques de configuration du projet concernant le deploiement de I'application sont traitees dans un 
chapitre specifique. 
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Les variables, constantes et enumerations 



1. Les variables 

Les variables vont vous permettre de memorise^ pendant I'execution de votre application, differentes valeurs utiles 
pour le fonctionnement de votre application. Une variable doit obligatoirement etre declaree avant son utilisation dans 
le code. Lors de la declaration d'une variable, vous fixez ses caracteristiques. 

a. Nom des variables 

Voyons les regies a respecter pour nommer les variables : 

• le nom d'une variable commence obligatoirement par une lettre, 

• il peut etre constitue de lettres, de chiffres ou du caractere souligne (_), 

• il peut contenir un maximum de 1023 caracteres (pratiquement, il est preferable de se limiter a une ta i I le plus 
raisonnable), 

• il n'y a pas de distinction entre minuscules et majuscules (la variable AgeDuCapitaine et equivalente a 

ageducapitaine). Cependant, d'autres langages font une distinction entre minuscules et majuscules, aussi il 
faudra etre prudent si vous generez un assembly utilise par un autre langage. 

• les mots des du langage ne doivent pas etre utilises (c'est malgre tout possible mais dans ce cas, le nom de 

la variable doit etre encadre par les caracteres [ et ]. Par exemple, une variable nommee next sera utilisee 
dans le code sous cette forme [next] = 56). 

b. Type des variables 

En specifiant un type pour une variable, nous indiquons quelles informations nous allons pouvoir stocker dans cette 
variable. 

Deux categories de types de variables sont disponibles : 

• Les types valeur : la variable contient reellement les informations. 

• Les types reference : la variable contient I'adresse memoire ou se trouvent les informations. 

Les differents types de variables disponibles sont definis au niveau du Framework lui-meme. Vous pouvez egalement 
utiliser les alias definis au niveau de VB, peut-etre plus explicites. Ainsi, le type System. Int32 defini au niveau du 
framework peut etre remplace par le type integer dans Visual Basic. 

Les differents types peuvent etre classes en six categories. 
Les types numeriques entiers 



Types entiers signes 




Sbyte 


- 128 


127 


8 bits 


Short 


-32768 


32767 


16 bits 


Integer 


-2 147 483 648 


2 147 483 647 


32 bits 


Long 


-9223372036854775808 


9223372036854775807 


64 bits 


Types entiers non signes 
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- 1 - 



Byte 


0 


255 


8 bits 


UShort 


0 


65535 


16 bits 


Ulnteger 


0 


4294967295 


32 bits 


ULong 


0 


18446744073709551615 


64 bits 



Lorsque vous choisissez un type pour vos variables entieres, vous devez prendre en compte les valeurs minimale et 
maximale que vous envisagez de stocker dans la variable afin d'optimiser la memoire utilisee par la variable. II est, en 
effet, inutile d'utiliser un type Long pour une variable dont la valeur n'excedera pas 50, un type Byte est dans ce cas 
suffisant. 



CS L'economie de memoire semble derisoire pour une variable unique mais devient appreciable lors de I'utilisation 
" de tableaux de grande dimension. 



Si par contre vous souhaitez optimiser la vitesse d'execution de votre code, il est preferable d'utiliser le type Integer. 



Les types decimaux 



Single 


-3.40282347E+38 


3.40282347E + 38 


4 octets 


Double 


-1.7976931348623157E+308 


1.7976931348623157E+308 


8 octets 


Decimal 


79228162514264337593543950335 


79228162514264337593543950335 


16 octets 



Les memes considerations d'optimisation que pour les variables entieres doivent etre prises en compte. Dans ce cas, 
une rapidite d'execution maximale est obtenue avec le type Double. Le type Decimal est plus specialement 
recommande pour les calculs financiers pour lesquels les erreurs d'arrondis sont prohibees, mais au detriment de la 
rapidite d'execution du code. 



Les types caracteres 

Le type Char (caracteres) est utilise pour stocker un caractere unique. Une variable de type char utilise deux octets 
pour stocker le code Unicode du caractere. Dans jeu de caractere Unicode, les 128 premiers caracteres sont 
identiques au jeu de caractere ASCII, les caracteres suivants jusqu'a 255 correspondent aux caracteres speciaux de 
I'alphabet latin (par exemple, les caracteres accentues), le reste est utilise pour des symboles ou pour les caracteres 
d'autres alphabets. 

Pour pouvoir stocker des chaines de caracteres, il convient d'utiliser le type String, qui represente une suite de zero a 
2147483648 caracteres. Les chaines de caracteres sont invariables car, lors de I'affectation d'une valeur a une chaine 
de caracteres, de I'espace est reserve en memoire pour le stockage. Si, par la suite, cette variable regoit une nouvelle 
valeur, le systeme lui assigne un nouvel emplacement en memoire. Heureusement, ce mecanisme est transparent 
pour nous et la variable fera toujours automatiquement reference a la valeur qui lui a ete assignee. Avec ce 
mecanisme, les chaines de caracteres peuvent avoir une ta i I le variable. L'espace occupe en memoire est 
automatiquement ajuste a la longueur de la chaine de caracteres. 

Pour affecter une chaine de caracteres a une variable, le contenu de la chaine doit etre saisi entre " ", comme dans 
I'exemple ci-dessous : 

Exemple 



NomDuCapitaine = "Crochet" 



C\ De nombreuses fonctions permettent la manipulation des chaines de caracteres et seront detaillees plus loin 
" dans ce chapitre. II existe egalement un type String sous forme d'une classe permettant egalement la 
manipulation des chaines de caracteres. Dans ce cas, la manipulation se fera par les methodes disponibles dans 
cette classe String. Elles seront egalement detaillees dans un paragraphe specifique plus loin dans ce chapitre. 



Le type Boolean 

Le type Boolean permet d'utiliser une variable qui peut prendre deux etats vrai/faux, oui/non, on/off. 



- 2- 
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L'affectation se fait directement avec les valeurs True ou False, comme dans I'exemple suivant : 



Disponible=True 
Modif iable=False 



II est toutefois possible d'affecter une valeur numerique a une variable de type Boolean. Dans ce cas, une valeur 
egale a zero sera consideree comme un boolean False alors que toute autre valeur positive ou negative sera 
consideree comme un boolean True. 

Le type Date 

Le type Date permet de stocker, dans une variable, des informations concernant une date et une heure. 
L'affectation se fait en encadrant la valeur par le signe # comme dans I'exemple suivant : 



Aujourdhui=#10/27/2005 14 :58 :23# 



Le format utilise pour affecter une valeur a une variable de type date est toujours de la forme #mois/jour/annee 
heure :minute :seconde# independamment du format de date configure sur votre systeme d'exploitation. Les heures 
peuvent etre specifiees au format 12 heures ou 24 heures. De toute fagon, I'environnement de developpement 
surveille votre saisie et transformera toujours la date au format 12 heures. Ainsi, I'exemple precedent sera modifie 
par I'environnement de developpement avec la forme suivante : 



Aujourdhui=#10/27/2005 2:58:23 PM# 



Si vous affectez, a une variable de type Date, une valeur contenant simplement une heure, Visual Basic considere 
qu'il s'agit du premier janvier de I'an 1 a I'heure que vous avez indiquee. Par exemple : 



Jour=#12 :35 :30# 



Correspond au premier janvier de I'an 1 a 12 heures 35 minutes 30 secondes. 

Inversement si vous affectez, a une variable de type Date, une valeur contenant simplement une date, Visual Basic 
considere qu'il s'agit du jour que vous avez indique, a minuit. 

Le type Object 

C'est peut-etre le type le plus universel de VB. Dans une variable de type Object, vous pouvez stocker n'importe quoi. 
En fait, ce type de variable ne stocke rien. La variable va contenir non pas la valeur elle-meme, mais I'adresse, dans 
la memoire de la machine, ou Ton pourra trouver la valeur de la variable. Rassurez-vous, tout ce mecanisme est 
transparent et vous n'aurez jamais a manipuler les adresses memoire directement. 



C\ Une variable de type Object pourra done faire reference a n'importe quel autre type de valeur y compris des 
^ types numeriques simples. Cependant, le code sera moins rapide du fait de I'utilisation d'une reference. 



Les types Nullables 

II arrive parfois que dans certaines circonstances une variable n'a pas de valeur bien definie. C'est par exemple le cas 
lors de la recuperation d'information en provenance d'une base de donnees si pour certains champs aucune valeur 
n'a ete affectee dans la base. Comment representer cette situation avec des variables dans Visual Basic. Une 
solution consiste a utiliser une valeur n'ayant aucune signification pour I'application. Par exemple, pour une variable 
numerique representant un code postal dans I'application, il peut etre envisage d'affecter a cette variable une valeur 
negative dans le cas ou le code postal n'est pas renseigne. Le reste du code doit bien sur tenir compte de cette 
convention. Pour certains types d'informations cette solution n'est pas envisageable. Prenons le cas d'une variable de 
type Boolean pour lequel il n'y a que deux valeurs admises, 'true' ou 'false', comment representer le fait que le 
contenu de la variable n'est pas 'non renseigne'. 



Pour resoudre ce probleme, Visual Basic propose les types Nullables. lis permettent aux variables de type valeur de 
ne contenir aucune information. Pour activer cette fonctionnalite sur une variable il faut simplement utiliser le 
caractere '?' a la suite du nom de la variable ou de son type dans la declaration comme dans I'exemple suivant. 



Dim 


CodePostal 


? as integer 


OU 


Dim 


CodePostal 


as integer? 



II faut par contre etre prudent lors de I'utilisation d'une variable de ce type et verifier avant de I'utiliser si elle contient 
effectivement une valeur. Pour cela, il faut tester la propriete Hasvalue de la variable pour determiner si elle contient 
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effectivement une valeur. Si c'est le cas cette valeur est disponible via la propriete value de la variable. Cette 
propriete est en lecture seule car I'affectation d'une valeur se fait directement sur la variable. 



codePostal=17000 

If codePostal . HasValue Then 

Console . WriteLine (codePostal) 
Else 

Console . WriteLine ( "Code postal vide") 
End If 



II est indispensable de tester la propriete HasValue avant l'utilisation de la propriete value car si la variable ne 
contient pas de valeur il y a declenchement d'une exception. C'est le cas dans I'exemple ci-dessous puisqu'une 
variable nullable, contrairement a une variable normale, ne contient pas de valeur par defaut. 



/ l/ewceptkm InvolidOperotionEitccption n'^ p« etcgerce X 

Un objel ojiautorfre la valeur Wufl <3ot preside une valeur. 
Conseils dede.pannao>e : 

1 

m 

Rfloherdw de fatde wi ^gcw complcmtrtwe, ■ ■ 
Actions : 

tfJicterfecdetab... 

Copier ie ditdd die fexcepticft dans- le Presse-papierf 



Une variable contenant une valeur peut revenir a I'etat 'non renseigne' si on lui affecte la valeur nothing. 

L'utilisation de variables de type boolean nullable avec les operateurs logiques 'and' et 'or' peut parfois etre 
problematique. Voici la table de verite de ces deux operateurs avec des variables nullables. 



Bl 


B2 


Bl and B2 


Bl or B2 


nothing 


nothing 


nothing 


nothing 


nothing 


true 


nothing 


true 


nothing 


false 


false 


nothing 


true 


nothing 


nothing 


true 


true 


true 


true 


true 


true 


false 


false 


true 


false 


nothing 


false 


nothing 


false 


true 


false 


true 


false 


false 


false 


false 



Le dernier point a eclaircir concerne l'utilisation d'un boolean nullable dans une structure conditionnelle. Regardons le 
code suivant : 



Dim condition As Boolean? 






If condition Then 






Console . WriteLine ( "le test 


est 


positif " ) 


Else 






Console . WriteLine ( "le test 


est 


negatif" ) 


End If 







L'instruction 'if considere que le test est positif uniquement si la variable contient la valeur 'true'. Pour les deux 
autres cas , valeur 'false' ou valeur 'non renseignee', le test est considere comme negatif et le code du bloc 'else' 
s'execute. 



Conao 1 e . "Wr i * e L i na | za da Pos I . "a 1 ue \ 
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c. Conversions de types 



Les conversions de types consistent a transformer une variable d'un type dans un autre type. Les conversions 
peuvent s'effectuer vers un type superieur ou vers un type inferieur. 

Si une conversion vers un type inferieur est utilisee, il risque d'y avoir une perte d'informations. Par exemple, la 
conversion d'un type Double vers un type Long fera perdre la partie decimale de la valeur. 



Exemple 



Dim x As Double 






Dim y As Long 






x = 21.123456789012344 






y = x 






Console . WriteLine ( " valeur 


de x : 


" & x) 


Console . WriteLine ( " valeur 


de y : 


" & y) 



Affiche : 



valeur de x : 2 1,12 3 4 5 6 7 8 9 012 3 
valeur de y : 21 

Une option du compilateur permet de verifier I'existence de ce genre de conversion. 



Ccrtf igu'a'ion : (Oabug) active 



Platsforme : 



{Any CPU) active 



Chenn ee sortie de la Qr'neretii": : 



'bn\JDcbug\ 



Opt-on EK-pliodt : 



Optiwi Strict: 



On 



OFF 



Qptfsn compile : 



Option [riff : 

On 



Configurations des averttesemenlbs : 



V 



coriditj^L 



rjotficatioft 



Conversion iropkitc 



Liaison tardive : I'apcel peut edhoue/ au rcmient d?fe:££njt 




Type implicite j objtf pns por dcf aut 
Lt-liser u"je variable avant las-agnation 



Ftration/operateur sans vafeur dc retaur 



Avc^tiKwncnt 



— - 



■■ ■ 



Q Dfcactiver touc let avei-tissements 

□ Cwflidfrer lows b* avtrtissefliwte cwwf* des crreuis 

0 Gcncrcr Ic fichicr do- documentation XML 

Inscfire pour COfi Lnfcercp 



Evgnamtrtg de generation. , ■ | 



Options avancees de completion, ■■ 



En fonction de la configuration de cette option, un warning ou une erreur de compilation sera generee si une telle 
conversion est tentee. 

Elles peuvent egalement etre implicites ou explicites en fonction du code utilise. Les conversions implicites sont 
realisees simplement par affectation d'une variable d'un type a une variable d'un autre type. Les conversions 
explicites necessitent I'utilisation d'un mot cle specifique qui sont de la forme Cxxx ou xxx correspondant au type dans 
lequel la valeur sera convertie. 

Le tableau suivant resume ces differents operateurs. 



Operateur 


Type de destination 


CBool 


Boolean 
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CByte 


Byte 


CChar 


Char 


CDate 


Date 


CDbl 


Double 


CDec 


Decimal 


CInt 


Integer 


CLng 


Long 


CObj 


Object 


CSByte 


SByte 


CShort 


Short 


CSng 


Single 


CStr 


String 


CUint 


Ulnteger 


CULng 


ULong 


CUShort 


UShort 



Un autre operateur (CType) permet la conversion vers un type standard du langage mais surtout vers un type 
personnalise, comme par exemple, une classe. 

Cet operateur est plus general et il attend deux parametres : 

• la variable a convertir ; 

• le type vers lequel doit se faire la conversion. 

CS L'utilisation de ces operateurs ne provoque pas d'erreur de compilation, si vous tentez une conversion 
v restrictive, car le compilateur considere alors que vous la realisez en toute connaissance de cause. 

Les conversions a partir de chaines de caracteres et vers des chaines de caracteres sont plus specifiques. 
Conversion vers une chaine de caracteres 

La fonction format permet de choisir la forme du resultat de la conversion d'une valeur quelconque en chaine de 
caracteres. Cette fonction attend comme parametre la valeur a convertir et le format dans lequel vous souhaitez 
obtenir le resultat. Ce deuxieme parametre est fourni sous forme d'une chaine de caracteres exprimant I'aspect du 
resultat desire. 

Certains formats standards sont predefinis mais il est egalement possible de personnaliser le resultat de la fonction 
format. Ci-apres, les parametres de cette fonction sont presentes. 

Formatage de valeurs numeriques 
Currency 

Format monetaire tel que defini dans les options regionales et linguistiques du panneau de configuration du systeme. 
Exemple : formatf 12. 35, "Currency") 
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Resultat : 12 , 35 € 

Fixed 

Utilise au moins un caractere pour la partie entiere et au moins deux caracteres pour la partie decimale d'un nombre. 
Le separateur decimal est celui defini dans les options regionales et linguistiques du panneau de configuration du 
systeme. 

Exemple : formatC.2,"Fixed") 

Resultat : 0,20 

Percent 

Multiplie la valeur indiquee par cent et ajoute le symbole w % " a la suite. 
Exemple : forma tf. 2, "Percent") 

Resultat : 20,00% 

Standard 

Format numerique tel que defini dans les options regionales et linguistiques du panneau de configuration du 
systeme. 

Exemple : formatl r 245813. 5862 /'Standard") 

Resultat : 245 813,59 

Scientific 

Notation scientifique avec deux chiffres significatifs. 
Exemple : format( 245813. 58, "Scientific") 

Resultat : 2,46E+05 
E 

Notation scientifique avec six chiffres significatifs. 
Exemple : format(245813.5862,"E") 

Resultat : 2 , 4 5 8 1 3 6E + 0 0 5 
X 

Format hexadecimal. Uti Usable uniquement pour les valeurs entieres. 
Exemple : formatl f 245813. "X") 

Resultat : 3C035 

Yes/ No 

True/False 

On/Off 

Retourne No, False, Off si la valeur est egale a zero sinon retourne Yes, True, On pour toutes les autres valeurs. 
ChaTne de formatage personnalisee pour valeurs numeriques 
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Reserve un emplacement pour un caractere numerique. Les zeros non significatifs sont affiches. 
Exemole : format(245813.12,"00000000000.0000") 

Resultat : 0 0 0 0 0 2 4 5 813,1200 
# 

Reserve un emplacement pour un caractere numerique. Les zeros non significatifs ne sont pas affiches. 
Exemole : format(245S13.12," ###########. ####") 

Resultat : 245813,12 

■ 

Reserve un emplacement pour le separateur decimal. Le caractere reellement utilise dans le resultat depend de la 
configuration des options regionales et linguistiques du panneau de configuration du systeme. 

Reserve un emplacement pour le separateur de millier. Le caractere reellement utilise dans le resultat depend de la 
configuration des options regionales et linguistiques du panneau de configuration du systeme. 

\ 

Permet I'utilisation d'un caractere ayant une signification speciale comme caractere ordinaire dans une chaine de 
formatage. Dans I'exemple suivant, le caractere \ fait perdre sa signification speciale au caractere # 

Exemole : formatf325,"commande N\#0000") 

Resultat : commande N#0325 

Formats de date et heure 
G 

Format Date court et format Heure tel que defini dans les options regionales et linguistiques du panneau de 
configuration du systeme. 

Exemole : format (now, "G") 

Resultat 17/10/2005 11:10:42 
D 

Format Date longue tel que defini dans les options regionales et linguistiques du panneau de configuration du 
systeme. 

Exemole : format Cnow,"D") 

Resultat lundi 17 octobre 2005 

d 

Format Date court tel que defini dans les options regionales et linguistiques du panneau de configuration du systeme. 
Exemole : format (now, "d") 

Resultat 17/10/2005 
T 
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Format Heure tel que defini dans les options regionales et linguistiques du panneau de configuration du systeme. 
Exemple : format fnow/'T") 

Resultat 11:45:30 
S 

Format 'triable \ 

Exemple : format fnow/'s") 

Resultat 2 0 0 5 - 1 0 - 1 7 T 1 1 : 4 7 : 3 0 

Chaine de formatage personnalisee pour valeurs de date et heure 

d Jour du mois sans zero non significatif 

dd Jour du mois avec zero non significatif 

ddd Nom du jour de la semaine abrege 

dddd Nom du jour de la semaine complet 

M Numero du mois sans zero non significatif 

MM Numero du mois avec zero non significatif 

MMM Nom du mois abrege 

MMMM Nom du mois complet 

h Heure sans zero non significatif (format 12H) 

hh Heure avec zero non significatif (format 12H) 

H Heure sans zero non significatif (format 24H) 

HH Heure avec zero non significatif (format 24H) 

m Minute sans zero non significatif 

mm Minute avec zero non significatif 

s Seconde sans zero non significatif 

ss Seconde avec zero non significatif 

y Annee sur un chiffre. Si, c'est le seul caractere de la chaine de formatage, il faut dans ce cas utiliser %y 

aayy Annee sur deux chiffres 

Wyy Annee sur quatre chiffres 

zzz Decalage par rapport au temps universel (GMT). 

Conversion depuis une chaine de caracteres 

La fonction vai permet la conversion d'une chaine de caracteres en valeur numerique. El le lit la chaine passee comme 
parametre jusqu'a rencontrer un caractere autre qu'un chiffre, un espace, une tabulation, ou un point. El le transforme 
ensuite cette portion de chaine en valeur numerique, en tenant compte des eventuels parametres de formatage 
definis au niveau du systeme, comme par exemple le separateur de millier. Les caracteres " &H " ou " &0 " places en 
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debut de chaine indiquent que la valeur est exprimee en hexadecimal ou en octal. 

Exemole : val f"&H7FFF") 

retourne 



327 67.0 



d. Declaration des variables 



Par defaut, le compilateur Visual Basic considere que toute variable qui apparait dans une application doit avoir ete 
declaree. Vous pouvez modifier cette option du compilateur en ajoutant dans votre code la ligne : 



Option Explicit Off 



Cette option doit etre la premiere ligne du fichier source et s'appliquera alors a I'ensemble du code de ce fichier. 

Avec cette option, vous n'avez plus I'obligation de declarer une variable avant de I'utiliser. Bien que paraissant 
sympathique, cette solution risque de produire des erreurs difficiles a trouver dans votre code. Regardons le code 
suivant : 



Function CalculTtc (Prix as Single) as Single 

Dim TempVal as Single 

TempVal=Prix * 1.196 
Return TemVal 
End Function 



Pas de soucis au moment de la compilation et pourtant notre fonction nous retournera toujours une valeur egale a 
zero. Si Ton regarde de plus pres le code, on s'apergoit d'une faute de frappe sur la ligne Return Temval : II manque 
le p au nom de la variable Tempvai. Lors de la compilation, Visual Basic a en fait considere qu'il s'agissait d'une 
nouvelle variable et I'a done initialisee a zero. Noye dans des centaines de lignes de code, ce genre d'erreurs peut 
etre tres difficile a detecter. En gardant I'option d'obligation des variables, vous auriez detecte le probleme des la 
compilation de votre application. 



Function CalculTtc (ByVal Prix As Single) 
Dim TempVal As Single 
TempVal = Prix * 1.19 6 
Return TemVal 



As Single 



E nd F unc t i o Le nom 'TemVal' n'est pas declare . 



Voyons done maintenant comment declarer les variables en Visual Basic, ^instruction de base pour la declaration 
d'une variable est I'instructionDim. 

La syntaxe generale de declaration d'une variable est la suivante : 



Dim NomVariablel [ , NomVariable2 , NonVariableN] [As Type de la Variable] 
[= Valeur initiale] 



Les parametres entre crochets sont optionnels dans la declaration. Si le type de la variable est omis, elle aura le type 
par defaut de vb e'est-a-dire Object. 

Si la valeur initiale est omise, la variable sera initialisee a zero si elle correspond a un type numerique, a une chaine 
de caractere vide si elle est du type String, a la valeur Nothing si elle est du type Object et a false si elle est du type 
Boolean. 

Si plusieurs noms sont specifies, les variables correspondantes seront toutes du type indique. 



e. Inference de type 

Nous avons vu dans les sections precedentes qu'il est fortement souhaitable de toujours declarer les variables avant 
leur utilisation. Cependant, dans certains cas, il est envisageable de laisser le compilateur realiser une partie du 
travail. Grace a I'inference de type, le compilateur peut determiner le type a utiliser pour une variable locale declaree 
sans la clause 'as'. Pour cela, il se base sur le type de I'expression utilisee pour initialiser la variable. Dans I'exemple 
suivant la variable est consideree comme une chaine de caracteres. 



Dim nom = "Dupont" 



Pour s'assurer que cette variable est bien consideree comme une chaine de caracteres, il suffit de demander a 
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IntelliSense ce qu'il nous propose pour utiliser cette variable. 



^ ToLower 

=^ ToLowerlnvariant 

To5tring 
^ ToUpper 
^ ToUpperlnvariant 
^ Trim 
=^ TrimEnd 

Trim5tart 
^| Union 



Common 



All 



Nous avons bien a disposition les methodes et proprieties du type String. 

Pour que I'inference de type fonctionne correctement, il faut imperativement respecter quelques regies : 

• L'inference ne fonctionne que pour les variables locales, c'est-a-dire les variables declarees dans une 
procedure ou fonction. 

• ^initialisation doit se faire sur la meme ligne de code que la declaration. Dans I'exemple ci-dessous la variable 
est consideree comme etant de type Object. 



D iiti nom 

nom = "Dupont" 

nom. 

Equals 

GetHashCode 
GetType 
ReferenceEquals 
^ To5tring 



• La variable ne peut pas etre declaree static. Si c'est le cas, elle est consideree comme etant du type Object. 



Static Dim nom = "Dupont" 

.■. .■. .■. .■. .■. .■. * 



Variable Static 'nom' declaree sans clause 'As' ; type Object pris par defaut. 



f. Portee des variables 



La portee d'une variable est la portion de code a partir de laquelle Ton peut manipuler cette variable. Elle est fonction 
de Templacement ou est situee la declaration et du mot cle utilise pour la declaration. 

Portee niveau bloc 

Seul le code du bloc aura la possibility de travailler avec la variable (par exemple, dans une boucle for next). 
Toutefois, si le meme bloc de code est execute plusieurs fois pendant I'execution de la procedure ou fonction, cas 
d'une boucle Do Loop par exemple, la variable ne sera creee que lors du premier passage dans la boucle et 
conservera sa valeur d'un passage a I'autre dans la boucle. Pour modifier ce mode de fonctionnement, il suffit 
d'initialiser la variable au moment de sa declaration. Seul le mot cle Dim peut etre utilise, pour la declaration de la 
variable au sein d'un bloc. 

Exemple : 



Dim i As Integer 

For i = 0 To 5 

Dim j As Integer 

Dim k As Integer = 0 

j = j + 1 

k = k + 1 
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Console .WriteLine ( "valeur de j :{0}", j) 
Console . WriteLine ( "valeur de k :{0}", k) 

Next 



Affiche : 






valeur 


de 


j 


1 


valeur 


de 


k 


1 


valeur 


de 


j 


2 


valeur 


de 


k 


1 


valeur 


de 


j 


3 


valeur 


de 


k 


1 


valeur 


de 


i 


4 


valeur 


de 


k 


1 


valeur 


de 


j 


5 


valeur 


de 


k 


1 


valeur 


de 


j 


6 


valeur 


de 


k 


1 



Porte e niveau procedure 

Seul le code de la procedure ou de la fonction ou est declaree la variable pourra modifier son contenu. Ce genre de 
variable est parfois nomme "variable locale". Seul le mot cle Dim peut etre utilise pour la declaration d'une variable 
dans une procedure ou fonction. 

Portee niveau module 

Cette portee correspond, en fait, a une variable declaree a I'exterieur d'une procedure ou fonction, c'est-a-dire dans 
un module, dans une classe ou dans une structure. La declaration peut apparaitre n'importe ou dans le code (mais a 
I'exterieur de toute procedure ou fonction). II est cependant recommande de regrouper les declarations afin de 
faciliter la maintenance ulterieure du code. 

Portee niveau namespace 

La variable sera utilisable a partir du code faisant partie du meme namespace meme si ce code est situe dans des 
modules differents. Si vous ne declarez pas explicitement de namespace dans votre code, il y aura toujours le 
namespace par defaut, et on pourra dans ce cas parler plutot de portee projet. 



g. Niveau d'acces des variables 

Le niveau d'acces d'une variable se combine avec la portee de la variable et determine quelle portion de code a le 
droit de lire et d'ecrire dans la variable. Un ensemble de mots cles permettent de controler le niveau d'acces. lis 
s'utilisent a la place du mot cle Dim lors de la declaration de la variable. 

Public 

Les elements declares avec le mot cle Public seront accessibles de n'importe quelle portion de code du projet dans 
lequel ils sont declares et de n'importe quel autre projet referengant celui dans lequel ils sont declares. Le mot cle 
Public ne peut cependant pas etre utilise pour la declaration a I'interieur d'une procedure ou fonction. 

Protected 

Ce mot cle est utilisable uniquement a I'interieur d'une classe. II permet de restreindre I'acces a la variable, au code 
de la classe et au code de toutes les classes heritant de celle-ci. 

Friend 

Les elements declares avec ce mot cle seront accessibles de I'assemblage dans lequel ils sont declares. Ce mot cle ne 
peut pas etre utilise a I'interieur d'une procedure ou fonction. 

Protected Friend 

Ce niveau d'acces est I'union des niveaux d'acces Protected et Friend. II rend visible la variable a I'ensemble de 
I'assemblage dans lequel elle est declaree et a toutes les classes heritant de celle ou elle est declaree. 

Private 

Ce mot cle restreint I'acces a la variable au module, a la classe ou a la structure dans laquelle elle est declaree. II ne 
peut pas etre utilise a I'interieur d'une procedure ou fonction. 

Le mot cle Dim peut toutefois etre utilise partout pour la declaration d'une variable, il faut se souvenir que dans le cas 
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d'une declaration au niveau module, il est equivalent au mot cle Private. Encore une fois, pour faciliter la relecture du 
code, utilisez le mot cle Private au niveau module et reservez le mot cle Dim pour la declaration de variables locales 
(a I'interieur de procedures ou fonctions). 

h. Duree de vie des variables 

La duree de vie d'une variable nous permet de specifier pendant combien de temps durant I'execution de notre 
application le contenu de notre variable sera disponible. 

Pour une variable declaree dans une procedure ou fonction, la duree de vie correspond a la duree d'execution de la 
procedure ou de la fonction. Des la fin de I'execution de la procedure ou fonction, la variable est eliminee de la 
memoire. El le sera recreee lors du prochain appel de la procedure ou fonction. Pour modifier ce mode de 
fonctionnement, il faut declarer la variable avec le mot cle static a la place de Dim. Dans ce cas, lors du premier appel 
de la procedure ou fonction, la variable est creee en memoire mais elle n'est pas detruite a la fin de la procedure ou 
fonction. Si la procedure ou fonction est a nouveau appelee dans le code, le meme emplacement memoire sera utilise 
et la variable retrouvera son contenu precedent. 



2. Les constantes 

Dans une application, il arrive frequemment que Ton utilise des valeurs numeriques ou chaines de caracteres qui ne 
seront pas modifiees pendant le fonctionnement de I'application. II est conseille, pour faciliter la lecture du code, de 
definir ces valeurs sous forme de constantes. 

La definition d'une constante s'effectue par le mot cle const. 
Exemple 



Const ValeurMaxi = 100 
Const Message="Trop grand" 



La constante peut etre alors utilisee dans le code a la place de la valeur qu'elle represente. 



If resultat> ValeurMaxi then 
Console .WriteLine (Message) 



II sera parfois necessaire de specifier un type pour la constante que Ton declare (dans le cas ou le compilateur est 
configure en mode Strict). La declaration de la constante aura alors la forme suivante : 



Const ValeurMaxi as integer =100 



CS Les regies concernant la duree de vie et la portee des constantes sont identiques a celles concernant les 
^ variables. 



La valeur d'une constante peut egalement etre calculee a partir d'une autre constante. 
Exemple 



Public Const Total As Integer = 100 
Public Const Demi As Integer = Total / 2 



Dans ce cas de figure, il faut etre prudent et ne pas creer de reference circulaire qui provoquerait une erreur de 
compilation. 

Public Const total As Integer = demi * 2 
Public Const denii As Integer = total / 2 

La constante 'total' ne peut pas dependre de sa propre valeur. 



De nombreuses constantes sont deja definies au niveau du langage Visual Basic. Le nom de ces constantes commence 
en general par vb... 

Les plus utilisees sont reprises dans le tableau suivant : 
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Nom de la constante 


Valeur de la constante 


vbCr 


Retour Chariot (caractere N°13) 


vbLf 


Saut de ligne (caractere N°10) 


vbCrLf 


Combinaison Retour chariot + saut de ligne 


vbNullChar 


Caractere Null (caractere N°0) 


vbTab 


Tabulation (caractere N°9) 


vbBack 


Retour arriere (caractere N°8) 



3. Les enumerations 

Une enumeration va nous permettre de definir un ensemble de constantes qui sont liees entre elles. La declaration 
s'effectue de la maniere suivante : 



Enum jours 

Dimanche 

Lundi 

Mardi 

Mercredi 

Jeudi 

Vendredi 

Samedi 
End Enum 



Par defaut, la premiere valeur de I'enumeration est initialisee a zero. Les constantes suivantes sont ensuite initialisers 
avec un increment de un. La declaration precedente aurait done pu s'ecrire : 



Const 


Dimanche = 


0 


Const 


Lundi = 1 




Const 


Mardi = 2 




Const 


Mercredi = 


3 


Const 


Jeudi = 4 




Const 


Vendredi = 


5 


Const 


Samedi = 6 





La sequence decrementation automatique dans une enumeration peut etre interrompue, voire ne pas etre utilisee 
comme dans I'exemple suivant : 



Enum dalton 
Joe = 158 
Jack = 163 
William = 173 
Averell = 185 

End Enum 



Q II faut toutefois que les valeurs utilisees dans I'enumeration soient des valeurs entieres. 



Une fois definie, une enumeration peut ensuite etre utilisee comme un type de variable specifique. 



Dim Taille as Dalton 



Les seules valeurs que vous pouvez affecter a votre variable Taille sont celles qui sont definies dans I'enumeration. 



Taille Dalton. Joe 
Console . WriteLine (Taille) 
Taille =45 ' Invalide 
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Lorsque vous faites reference a un element de votre enumeration, vous devez le faire preceder du nom de 
1'enumeration comme dans I'exemple precedent. Pour eviter cela, il faut specifier dans votre code que vous voulez 
utiliser 1'enumeration en I'important a I'aide de 1'instruction suivante : 



Imports Application . dalton 



II est alors possible d'utiliser les valeurs contenues dans 1'enumeration directement. 



Taille = Joe 



II faut, dans ce cas, etre prudent avec des noms de constantes identiques qui pourraient exister dans des 
enumerations differentes. 

La declaration d'une enumeration ne peut pas se faire dans une procedure ou une fonction. 

La portee d'une enumeration suit les memes regies que celle des variables (utilisation des mots des Public, Private, 
Friend, Protected). 



4. Les tableaux 

Les tableaux vont nous permettre de faire reference a un ensemble de variables par le meme nom et d'utiliser un index 
pour les differencier. Un tableau peut avoir une ou plusieurs dimensions (jusqu'a 32, mais au-dela de trois on a du mal 
a se representer le contenu du tableau). Le premier element d'un tableau a toujours pour index, zero. 

L'index maximum d'un tableau est specifie au moment de la creation du tableau. Le nombre d'elements d'un tableau 
est done egal au plus grand index plus un. 

Tableaux a une dimension 

La declaration s'effectue comme une variable classique mis a part que Ton indique a la suite du nom de la variable 
entre parentheses le plus grand index du tableau : 



Dim ChiffreAf faire (11) as Decimal 



Cette declaration va creer un tableau avec douze cases numerotees de 0 a 11. Les elements des tableaux sont 
accessibles de la meme maniere qu'une variable classique. II suffit d'ajouter l'index de I'element que Ton veut modifier. 



ChiffreAf faire (1) =12097 



Une autre solution est disponible pour la creation d'un tableau. El le permet simultanement la creation du tableau et 
I'initialisation de son contenu. La syntaxe est la suivante : 



Dim tauxTva() As Decimal = {0, 5.5, 19.6, 33} 



II n'est dans ce cas nul besoin de preciser de taille pour le tableau. Le dimensionnement se fera automatiquement en 
fonction du nombre de valeurs placees entre les accolades. 

Tableaux a plusieurs dimensions 

La syntaxe de declaration est similaire a celle d'un tableau, mis a part que Ton doit specifier une valeur pour le plus 
grand index de chacune des dimensions du tableau en les separant par une virgule. 



Dim Cube (4, 4, 4) As Integer 



L'acces a un element du tableau s'effectue de maniere identique, en indiquant les index permettant d'identifier la casse 
du tableau concernee. 



Cube (0, 1, 1) =52 



La syntaxe permettant I'initialisation d'un tableau a plusieurs dimensions au moment de sa declaration est un petit peu 
plus complexe. 



Dim Grille (,) As Integer = {{1, 2}, {3, 4}} 



Cet exemple cree un tableau a deux dimensions de deux cases sur deux cases. 



Q La creation, avec cette technique, de tableaux de grande taille a plusieurs dimensions risque d'etre perilleuse. 
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Redimensionnement d'un tableau 



La taille des tableaux n'est pas figee mais peut etre modifiee pendant le fonctionnement de I'application. L'instruction 
Redim permet de modifier la taille d'un tableau. 



Redim Chif f reAf f aire ( 52 ) 



Nous avons maintenant cinquante trois cases disponibles pour stocker I'information dans notre tableau. Par contre, si 
notre tableau contenait des informations, elles ont ete perdues pendant le redimensionnement. Pour conserver son 
contenu, il convient de specifier le mot cle Preserve apres I'instruction Redim. 



Redim Preserve Chif f reAf f aire ( 52 ) 



Dans ce cas, le contenu initial du tableau est conserve et de nouvelles cases sont ajoutees a la suite de celles existant 
deja, sans en affecter le contenu. 



C\ Dans le cas d'un tableau multidimensionnel, seule la derniere dimension peut etre modifiee si vous souhaitez 
v conserver le contenu du tableau. Le nombre de dimensions d'un tableau ne peut, par contre, pas etre modifie 
par une instruction Redim. 



L'instruction Redim peut egalement etre utilisee pour fournir une taille initiale a un tableau. Dans ce cas, il ne faut pas 
specifier de taille pour le tableau au moment de sa declaration et utiliser l'instruction Redim pour le dimensionner. II est, 
dans ce cas, imperatif d'utiliser l'instruction Redim avant tout acces au contenu du tableau. 

film valeucs {) As Inceger 

La variable Valcus" est utiiscc ov ant qu'unc vtfcur ne lui at etc assignee, Une exctption de reference nu! peut re prozUrc ou moment de rexecu^cn ■ 



Manipulations courantes des tableaux 

Lorsque Ton travaille avec les tableaux, certaines operations doivent etre frequemment realisees. Ce paragraphe decrit 
les operations les plus courantes realisees sur les tableaux. 

Obtenir la taille d'un tableau 

II suffit d'utiliser la propriete Length du tableau pour connaitre le nombre d'elements qu'il peut contenir. Dans le cas 
d'un tableau multidimensionnel, le resultat correspond au nombre total de cases du tableau soit le produit de la taille 
de chacune des dimensions. II ne s'agit pas de I'espace memoire occupe par le tableau mais bien du nombre total de 
cases du tableau. 



Dim Grille (,) As Integer = {{1, 2}, {3, 4}} 

Console .WriteLine ( "taille totale du tableau : {0}", Grille . Length) 



Pour obtenir I'occupation memoire du tableau, il faut multiplier sa taille par le nombre d'octets utilises pour une case 
elementaire du tableau. 

Obtenir la taille d'une des dimensions d'un tableau 



La methode GetLength attend comme parametre la dimension du tableau pour laquelle Ton souhaite obtenir la taille : 



Dim Matrice ( , ) As 


Integer 




{ U, 


2}, {3, 


4}, {5, 6}} 








Console .WriteLine ( 


"taille 


de 


la 


premiere 


dimension : 


{ 0 } " , 


Matrice 


.GetLength (0) ) 


Console .WriteLine ( 


"taille 


de 


la 


deuxieme 


dimension : 


{ 0 } " , 


Matrice 


.GetLength (1) ) 



Affiche le resultat suivant : 



taille de la premiere dimension : 3 
taille de la deuxieme dimension : 2 

Obtenir la dimension d'un tableau 

La propriete Rank d'un tableau renvoie directement la dimension du tableau : 
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Dim Grille (,) As Integer = {{1, 2}, {3, 4}, {5, 6}} 
Console . WriteLine ( " ce tableau comporte {0} dimensions", 
Grille . Rank) 



Affiche le resultat suivant : 

ce tableau comporte 2 dimensions 

Rechercher un element dans un tableau 

La fonction indexof de la classe Array permet d'effectuer une recherche dans un tableau. El I e accepte comme 
parametres, le tableau dans lequel se fait la recherche et I'element recherche dans le tableau. La valeur retournee 
correspond a I'index ou I'element a ete trouve dans le tableau ou -1 si element ne se trouve pas dans le tableau. 



Dim gouter() As String = {"pain", "beurre", "moutarde ", "confiture"} 
Console . WriteLine (Array . IndexOf (gouter, "moutarde " ) ) 



Trier un tableau 

La procedure sort de la classe Array assure le tri du tableau qu'elle regoit en parametre. Le tri s'effectue par ordre 
alphabetique pour les tableaux de chaine de caracteres et par ordre croissant pour les tableaux de valeurs 
numeriques. 



Dim gouter () As String = {"pain", "beurre", "moutarde", "confiture"} 

Dim plat As String 

Array . Sort (gouter) 

For Each plat In gouter 

Console . WriteLine (plat) 

Next 



Affiche le resultat suivant : 

beurre 
conf iture 
mout arde 
pain 



5. Les chaines de caracteres 

Les variables de type String permettent la manipulation de chaines de caracteres par votre application. Nous avons le 
choix entre deux possibilites pour travailler avec les chaines de caracteres : 

• Utiliser les fonctions de Visual Basic 

• Utiliser les methodes de la classe System. String 

Nous allons regarder comment realiser les operations les plus courantes sur les chaines de caracteres. 
Affectation d'une valeur a une chaine 

Nous avons vu que pour, affecter une valeur a une chaine, il faut la specifier entre les caracteres "et", un probleme se 
pose si nous voulons que le caractere w fasse partie de la chaine. Pour qu'il ne soit pas interprets comme caractere de 
debut ou de fin de chaine, il faut doubler le caractere " comme dans I'exemple ci-dessous. 

Dim Chaine as String 

Chaine=" il a dit : "" ga suffit ! """ 
Console . WriteLine (Chaine) 

Nous obtenons a I'affichage : il a dit : "ga suffit ! " 

Pour les exemples suivants, nous allons travailler avec deux chaines. 

chainel = "l'hiver sera pluvieux" 
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chaine2 = 



"l'hiver sera froid" 



Extraction d'un caractere particulier 

Pour obtenir le caractere present a une position donnee d'une chaine de caracteres, Ton peut considerer la chaine 
comme un tableau de caracteres et ainsi atteindre le caractere souhaite par un index. 

Console . WriteLine ( "Le troisieme caractere de la chainel est : {0}", chainel (2 ) ) 

Autre solution, mais cette fois en utilisant la propriete chars de la classe string. 

Console . WriteLine (" Le troisieme caractere de la chainel est : {0}", 
chainel. Chars (2) ) 

Resultat : 

Le troisieme caractere de la chaine est : h 

Dans les deux cas, la numerotation des caracteres commence a zero comme pour un tableau. 
Obtention de la longueur d'une chaine 

Pour determiner la longueur d'une chaine, la propriete Length de la classe string ou la fonction Len de Visual Basic sont 
disponibles. Toutes deux retournent le nombre de caracteres presents dans la chaine. 

Console. WriteLine ("la chainel contient {0} caracteres", chainel. Length) 
Console. WriteLine ("la chaine2 contient {0} caracteres", Len (chaine2) ) 

Resultat : 

La chaine 1 contient 21 caracteres. 
La chaine 2 contient 18 caracteres. 

Decoupage de chaine 

Plusieurs solutions sont disponibles en fonction de la portion de chaine que Ton souhaite recuperer. 
Le debut de la chaine 

La fonction Left renvoie les x premiers caracteres de la chaine. 

Console. WriteLine ("les cinq premiers caracteres de la chainel sont {0}", 
Left (chainel, 5) ) 

Resultat : 

Les cinq premiers caracteres de la chaine sont l'hiv. 

La fin de la chaine 

La fonction Right renvoie les x derniers caracteres de la chaine. 

Console . WriteLine (" les cinq derniers caracteres de la chainel sont {0}", 
Right (chainel, 5) ) 

Resultat : 

les cinq derniers caracteres de la chaine sont froid. 

Une portion quelconque de la chaine 

La fonction Mid ou la methode Substring de la classe string retournent une portion de chaine en fonction de la 
position de depart et du nombre de caracteres a retourner qui leur sont passes. La fonction Mid necessite en plus la 
chaine a partir de laquelle va s'effectuer le decoupage. 
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Console . WriteLine ( "Un morceau de la chainel {0}", Mid (chainel, 2, 5)) 
Console . WriteLine ( "Un morceau de la chaine2 {0}", chaine2 . Substring (2, 5)) 

Nous obtenons a I'affichage : 

Un morceau de la chainel 'hive 
Un morceau de la chaine2 hiver 



^Attention pour la fonction Mid, la numerotation des caracteres commence a 1. 



Comparaison de chatnes 



Plusieurs solutions sont possibles selon I'objectif a atteindre avec la comparaison des deux chaines. Si le but est 
seulement de verifier I'egalite de deux chaines, vous pouvez utiliser I'operateur = ou la fonction Equals de la classe 

String. 



If chainel = chaine2 Then 




Console . WriteLine ( " ce 


sont les memes") 


Else 




Console . WriteLine ( " ce 


ne sont pas les memes") 


End If 




If chainel . Equals ( chaine2 ) 


Then 


Console . WriteLine ( " ce 


sont les memes") 


Else 




Console . WriteLine ( " ce 


ne sont pas les memes") 


End If 





Pour realiser un classement, vous devez par contre utiliser la methode compare de la classe string ou la fonction 
strComp. Avec ces deux solutions, les deux chaines a comparer doivent etre passees comme parametres. Le resultat de 
la comparaison est retourne sous forme d'un entier inferieur a zero si la premiere chaine est inferieure a la deuxieme, 
egal a zero si les deux chaines sont identiques, et superieur a zero si la premiere chaine est superieure a la deuxieme. 



Select Case 


chainel . Compare To ( chaine 2 ) 
Case Is < 0 










Console .WriteLine ( 


" chainel 


est 


inferieure a chaine2") 




Case 0 










Console .WriteLine ( 


" chainel 


est 


egale a chaine2") 




Case Is > 0 










Console .WriteLine ( 


" chainel 


est 


superieure a chaine2") 


End Select 











Insertion dans une chaine 

La methode insert de la classe string permet I'insertion d'une chaine dans une autre. El le attend comme parametre 
un entier et une chaine et nous retourne la chaine de depart dans laquelle se trouve inseree, a la position specifiee, la 
chaine passee en parametre. 



Dim chaine3 As String 

chaine3 = chaine2 . Insert ( 13 , "tres ") 
Console .WriteLine (chaine3) 



L'instruction precedente nous affiche la ligne correspondante : 

1' hiver sera tres froid 

Suppression des espaces 

• au debut de la chaine : console .writeLine(itrim(cha?nel)) Ou console . writeLine(chamel.TrimStart()) 

• A la fin de la chaine : console . writeLine(rtrim(cha?nel)) Ou console .writeLine(chainel.TrimEnd()) 

• Au debut et a la fin : console . writeLine(trim(cha?nel)) Ou console . writeLine(chainel.Trim()) 
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Changement de la casse 



• Tout en majuscules : console . writeLine(ucase(cha?nel)) Ou console .writeLine(chainel.ToUpper()) 

• Tout en minuscules : console . writeLine(Lcase(cha?nel)) Ou console .writeLine(chainel.ToLower()) 



Recherche dans une chaine 

La fonction instr ou la methode indexof de la classe string permettent la recherche d'une chaine a I'interieur d'une 
autre. Le premier parametre correspond a la chaine dans laquelle va s'effectuer la recherche, le deuxieme parametre 
correspond a la chaine recherchee. La fonction retourne un entier indiquant la position a laquelle la chaine a ete 
trouvee ou zero si la chaine n'a pas ete trouvee. Par defaut, la recherche commence au debut de la chaine, sauf si 
vous utilisez une autre version de la fonction instr qui, elle, attend trois parametres, le premier parametre etant pour 
cette fonction, la position de depart de la recherche, les deux autres etant respectivement la chaine dans laquelle va 
s'effectuer la recherche et la chaine recherchee. La numerotation des caracteres se fait a partir de 1 pour la fonction 

InStr. 



Dim recherche As String 




Dim position As Integer 




recherche = "e" 




position = InStr ( chainel , recherche) 




While (position > 0) 




Console .WriteLine ( "chaine trouvee a la 


position {0}", position) 


position = InStr (position + 1, chainel, 


recherche ) 


End While 




Console . WriteLine (" fin de la recherche") 





Nous obtenons a I'affichage : 



chaine trouvee a la position 6 

chaine trouvee a la position 10 

chaine trouvee a la position 19 
fin de la recherche 

Remplacement dans une chaine 

II est parfois souhaitable de pouvoir rechercher la presence d'une chaine a I'interieur d'une autre, comme dans 
I'exemple precedent, mais egalement de remplacer les portions de chaines trouvees. La fonction Replace permet de 
specifier une chaine de substitution pour la chaine recherchee. Elle attend au total cinq parametres : 

• La chaine dans laquelle va s'effectuer la recherche. 

• La chaine recherchee 

• La chaine de remplacement 

• La position de depart de la recherche 

• Le nombre de remplacements souhaites (-1 pour toutes les occurrences de la chaine recherchee) 

chaine3 = Replace (chainel, "hiver", "ete", 1, -1) 
Console. WriteLine (chaine3) 

Nous obtenons a I'affichage : 

1' ete sera pluvieux 



6. Les structures 

Les structures offrent la possibility de combiner des donnees de differents types pour creer un nouveau type 
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composite. Ce nouveau type pourra ensuite etre utilise dans la declaration de variables comme un type standard de 
Visual Basic. 

Les structures sont tres pratiques lorsque Ton souhaite manipuler des informations ayant un lien entre elles. Par 
exemple, dans une application comptable, les informations concernant les clients (code client, nom, prenom, adresse) 
peuvent etre plus facilement gerees sous forme d'une structure plutot que par des variables individuelles. 

a. Declaration d'une structure 

La declaration d'une structure se fait entre les mots des structure et End structure. Entre ces deux mots des, vous 
devez placer au moins la declaration d'un membre de la structure. Les membres de la structure sont, en fait, tout 
simplement des variables, procedures ou fonctions declares a I'interieur de la structure. Comme pour tout element 
declare dans Visual Basic vous avez la possibility de specifier un niveau d'acces pour chaque membre de la structure. 
Sans information specifique, le membre est considere comme etant public. Par contre, il est impossible d'initialiser les 
membres d'une structure au moment de la declaration. 

Exemple 



Public Structure Client 

Public Code As Integer 

Public Nom As String 

Public Prenom As String 

Public Coordonnees As String 
End Structure 

Les membres d'une structure peuvent etre eux-memes des variables de type structure. Dans I'exemple precedent la 
variable coordonnees peut etre decomposee sous forme d'une structure de type adresse. 

Exemple 

Public Structure Adresse 

Public Numero As Integer 

Public Rue As String 

Public CodePostal As Integer 

Public Ville As String 
End Structure 
Public Structure Client 

Public Code As Integer 

Public Nom As String 

Public Prenom As String 

Public Coordonnees As Adresse 
End Structure 

Les structures acceptent egalement des procecures ou fonctions comme membres. Elles sont generalement utilisees 
pour manipuler les variables membres de la structure. 

Exemple 

Public Structure Adresse 
Public Numero As Integer 
Public Rue As String 
Public CodePostal As Integer 
Public Ville As String 

Public Function getAdresse () As String 

Return Numero & " " & Rue & vbCrLf & CodePostal & vbTab & Ville . ToUpper 
End Function 
End Structure 



b. Utilisation des structures 

Les structures sont utilisees comme des types de donnees classiques. II convient, au prealable, de declarer une 
variable du type de la structure. 

Dim Clientl As Client 

Par la suite, cette variable permet I'acces aux membres de la structure grace a I'operateur V appele operateur 
d'acces. 
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Exemple 



Clientl .Code = 999 
Clientl.Nom = "LeNom" 
Client 1 . Prenom = "lePrenom" 



Si Tun des membres de la structure est lui-meme de type structure, vous devez egalement utiliser I'operateur d'acces 
pour pouvoir manipuler les membres imbriques. 

Exemple 



Client 1 . Coordonnes . Numero = 42 
Client 1 . Coordonnes . Rue = "rue de Paris" 
Clientl . Coordonnes . CodePostal = 44000 
Client 1 . Coordonnes . Ville = "Nantes" 



Les types structure sont des types de donnees par valeur, c'est-a-dire que la variable contient vraiment les donnees 
de la structure (a mettre en opposition avec les variables de type reference ou la variable ne contient que 
remplacement, dans la memoire, ou se trouvent les donnees). 

Ceci nous permet d'assigner a une variable de type structure le contenu d'une autre variable de meme type. II y a, 
dans ce cas, recopie des informations de chaque membre de la variable source dans le membre correspondant de la 
variable destination. 



Exemple 



Dim Client2 As Client 










Client2 = Clientl 










Console . WriteLine ( 


"Clientl : 


" & vbCrLf & 


Clientl 


. etiquette ) 


Console .WriteLine ( 


"Client2 : 


" & vbCrLf & 


Client2 


. etiquette) 



Affiche le resultat suivant : 



Clientl : 
M lePrenom LeNom 
42 rue de Paris 
44000 NANTES 

C 1 i ent 2 : 
M lePrenom LeNom 
42 rue de Paris 
44000 NANTES 



CS II faut cependant etre mefiant avec ce mecanisme si un membre de la structure est un type reference (un 
^ tableau par exemple), car dans ce cas les deux variables se partageront le meme tableau. 
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Les operateurs 



Les operateurs sont des mots cles du langage permettant I'execution d'operations sur le contenu de certains elements, 
en general des variables, des constantes, des valeurs litterales, ou des retours de fonctions. La combinaison d'un ou 
plusieurs operateurs et d'elements sur lesquels les operateurs vont s'appuyer se nomme une expression. Ces 
expressions sont evaluees au moment de leur execution, en fonction des operateurs et des valeurs qui sont associees. 

Les operateurs peuvent etre repartis en six categories. 



1. Les operateurs d'affectation 

Le seul operateur disponible dans cette categorie est I'operateur =. II permet d'affecter une valeur a une variable. Le 
meme operateur est utilise quel que soit le type de la variable (numerique, chaine de caracteres...). 



2. Les operateurs arithmetiques 



Les operateurs arithmetiques permettent d'effectuer des calculs sur le contenu des variables : 



Operateur 


Operation realisee 


Exemple 


Resultat 


++ 


Addition 


6+4 


10 




Soustraction 


12-6 


6 


* 


Multiplication 


3*4 


12 


/ 


Division 


25/3 


8.3333333333 


\ 


Division entiere 


25/3 


8 


Mod 


Modulo (reste de la 
division entiere) 


25 mod 3 


1 




Puissance 


5^3 


125 



3. Les operateurs binaires 

Ces operateurs effectuent des operations sur des entiers uniquement (Byte, Short, Integer, Long). lis travaillent au 
niveau du bit sur les variables qu'ils manipulent. 



Operateur 


Operation realisee 


Exemple 


Resultat 


And 


Et Binaire 


45 and 255 


45 


Or 


Ou Binaire 


99 or 46 


111 


Xor 


Ou exclusif 


99 xor 46 


77 


Not 


Negation 


Not 23 


-24 



4. Les operateurs de comparaison 

Les operateurs de comparaison sont utilises dans les structures de controle d'une application (if then, do loop...). lis 
renvoient une valeur de type boolean en fonction du resultat de la comparaison effectuee. Cette valeur sera ensuite 
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utilisee par la structure de controle. 



Operateur 


Operation reahsee 


Exemple 


Resultat 




Egalite 


2 = 5 


False 




Inegahte 


2 <> 5 


True 


< 


Infeneur 


2 < 5 


True 


> 


Supeneur 


2 > 5 


False 


< = 


Infeneur ou egal 


2 <= 5 


True 


> = 


Superieur ou egal 


2 >= 5 


False 


Like 


Egalite de chaines de 
caracteres 


"toto" like "t*" 


True 


Is 


Comparaison de deux 
variables objets 


01 Is 02 


True si 01 et 02 font 
reference au meme objet 


IsNot 


Comparaison de deux 
variables objets 


01 IsNot 02 


True si 01 ne fait pas 
reference au meme objet 
que 02 


TypeOf ... Is ... 


Comparaison du type de 
la variable avec le type 
donne 


TypeOf 01 Is Client 


True si la variable 01 
reference un objet cree a 
partir du type Client 



Quelques informations supplementaires concernant I'operateur like : 



• Comme I'operateur =, I'operateur like permet de tester I'egalite de deux chaines de caracteres mais il est plus 
souple d'utilisation grace a I'utilisation de caracteres "jokers". 

• Le caractere * permet de remplacer n'importe quelle suite de caracteres. L'expression nom like "t*" nous 
permet de verifier si la variable nom contient une valeur commengant par t et ayant un nombre quelconque de 
caracteres. 

• Le caractere ? permet de remplacer un caractere dans l'expression a tester. Pour verifier si votre variable nom 
contient une valeur commengant par t et ayant quatre caracteres on utilisera l'expression suivante : Nom like 
" t ? ? ? " 

II faut egalement etre prudent avec les comparaisons de chaines de caracteres car les resultats d'une meme 
comparaison peuvent etre differents en fonction de I'option choisie pour le compilateur. Les options du compilateur 
peuvent etre modifies par la boite de dialogue des proprietes de votre projet. 
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Corfaur&ion ; (Debug) active 



PldwfOf me ; (Arty CPU) active 



Cherrihde sorbs de l-j gerueratim : 



hin\DehugH 



ParcoLrv... 



Options ds coup la:sLin : 



Off 



Option Cempare : 



Binary 



Snory 



Option Infer : 



On 



Condticn 


Notificalian 


A 


Gowerckn impkite 




V 




Liaison tardive ; Fopc-cl peut crf-cucr au moment de fsxHtution 


Aucun 




Itfpe incite ; objet pric par dffadt 




v 


Utirscr une variable avont rossgnSwn 


Awrtmerrwnt y 


Fizirctiurijiirperdteur tans vafeur tfe ratour 


A^ttsserrsnt 









^ DBsadaver bus Ids ovsrtissemertfs 

I | CcnsJderer tous les aviartisseffle'rtts co mine des erreurs 

□ IrtScriro penr COM [fftwcp 



Qptons a'-'oncecs de corppiatkin... 



La propriete option compare permet de specifier le mode de comparaison utilise par le compilateur. 

• Avec I'option Text, le compilateur ne fera pas de difference entre les minuscules et les majuscules lors de la 
comparaison. 

• L'option binaire exigera une stricte egalite des chaines pour obtenir un resultat true. 



5. Les operateurs de concatenation 

Deux operateurs + et & peuvent etre utilises pour la concatenation de chaines de caracteres. Cependant, la 
destination premiere de I'operateur + est I'addition de valeurs numeriques. II possede un fonctionnement assez 
complexe en cas d'utilisation sur des chaines de caracteres. Les regies suivantes sont appliquees : 

• Si les deux operandes sont numeriques, alors il y a addition. 

• Si les deux operandes sont de type String alors il y a concatenation. 

• Si un operande est numerique et le deuxieme est de type String alors un autre parametre entre en jeu. Si le 
compilateur est configure avec l'option strict on une erreur de compilation est generee. Si le compilateur est 
configure avec l'option strict off, la chaine de caracteres est implicitement convertie en type Double puis 
additionnee. Si la chaine de caracteres ne peut pas etre convertie en Double alors une exception est generee. 

Pour eviter de se poser toutes ces questions, preferez ('utilisation de I'operateur &. Avec cet operateur, si I'un des deux 
operandes n'est pas du type String, il est automatiquement converti vers ce type avant la concatenation. 

L'inconvenient de I'operateur & est qu'il n'est pas tres rapide. Si vous avez de nombreuses concatenations a executer 
sur une chaine, il est preferable d'utiliser la classe StringBuilder. 

Exemple 



Dim duree, i As Integer 

Dim lievre As String 
Dim tortue As String 
Dim debut, fin As Date 
debut = Now 
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For i = 0 To 100000 

tortue = tortue & " " & i 

Next 

fin = Now 

duree = DateDiff (Datelnterval . Second, debut, fin) 

Console . WriteLine ( "duree pour la tortue : {0} secondes", duree) 

debut = Now 

Dim sb As New StringBuilder 
For i = 0 To 100000 

sb. Append (" ") 

sb .Append (i) 

Next 

lievre = sb.ToString 
fin = Now 

duree = DateDiff (Datelnterval . Second, debut, fin) 

Console . WriteLine ( "duree pour le lievre : {0} secondes", duree) 

If lievre . Equals (tortue ) Then 

Console . WriteLine (" les deux chaines sont identiques") 
End If 



Resultat de la course : 

duree pour la tortue : 107 secondes 
duree pour le lievre : 0 secondes 
les deux chaines sont identiques 

Ce resultat se passe de commentaire ! 



6. Les operateurs logiques 



Les operateurs logiques permettent de combiner les expressions dans des structures conditionnelles ou de boucle. 



Operateur 


Operation 


Exemple 


Resultat 


and 


Et logique 


If (testl) And (test2) 


vrai si testl et test2 est 
vrai 


Or 


Ou logique 


If (testl) Or (test2) 


vrai si testl ou test2 est 
vrai 


xor 


Ou exclusif 


If (testl) Xor (test2) 


vrai si testl ou test2 est 
vrai mais pas si les deux 
sont vrais simultanement 


Not 


Negation 


If Not test 


Inverse le resultat du 
test 


AndAlso 


Et logique 


If (testl) AndAlso(test2) 


Idem "et logique" mais 
test2 ne sera evalue que 
si testl est vrai 


OrElse 


Ou logique 


If (testl) OrElse (test2) 


Idem "ou logique" mais 
test2 ne sera evalue que 
si testl est faux 



II convient d'etre prudent avec les operateurs AndAlso et OrElse car I'expression que vous testez en second (test2 
dans notre cas) pourra parfois ne pas etre executee. Si cette deuxieme expression modifie une variable, celle-ci ne 
sera modifiee que dans les cas suivants : 



• premier test vrai dans le cas du AndAlso 

• premier test faux dans le cas du OrElse. 
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7. Ordre d evaluation des operateurs 



Lorsque plusieurs operateurs sont combines dans une expression, ils sont evalues dans un ordre bien precis. Les 
operations arithmetiques sont executees en premier puis les operations de comparaison et enfin les operateurs 
logiques. 

Les operateurs arithmetiques ont entre eux egalement un ordre devaluation dans une expression. L'ordre 
devaluation est le suivant : 

• Puissance(^) 

• Negation (-) 

• Multiplication et division (*, /) 

• Division entiere (\) 

• Modulo (Mod) 

• Addition et soustraction (+, -), concatenation de chaines ( + ) 

• Concatenation de chaine (&). 

Si un ordre devaluation different est necessaire dans votre expression, placez les portions a evaluer en priorite, entre 
parentheses, comme dans I'expression suivante : 

X= (z * 4) A (y * (a + 2) ) 

QVous pouvez utiliser autant de niveaux de parentheses que vous le souhaitez dans une expression. II importe 
v cependant que I'expression contienne autant de parentheses fermantes que de parentheses ouvrantes sinon le 
compilateur generera une erreur. 
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Les structures de controle 



Les structures de controle permettent de modifier I'ordre d'execution des instructions dans votre code. Deux types de 
structures sont disponibles : 

• Les structures de decision : elles aiguilleront I'execution de votre code en fonction des valeurs que pourra 
prendre une expression de test. 

• Les structures de boucle : elles feront executer une portion de votre code un certain nombre de fois, jusqu'a ce 
qu'une condition soit remplie ou tant qu'une condition est remplie. 



1. Structures de decision 

Deux solutions sont possibles. 

a. Structure If 

Quatre syntaxes sont utilisables pour I'instruction If. 

If condition then instruction 

Si la condition est vraie alors I'instruction est executee ; dans ce cas, "condition" doit etre une expression qui, une 
fois evaluee, doit fournir un boolean true ou false. Avec cette syntaxe, seule I'instruction situee apres le then sera 
executee si la condition est vraie. 

Pour pouvoir executer plusieurs instructions en fonction d'une condition, la syntaxe a utiliser est : 

If condition then 
Instruction 1 

Instruction n 
End i f 



Q Dans ce cas, le groupe destructions situe entre le then et le End if, sera execute si la condition est vraie. 



Vous pouvez egalement specifier une ou plusieurs instructions qui, elles, seront executees si la condition est fausse. 

If condition then 
Instruction 1 

Instruction n 

Else 
Instruction 1 

Instruction n 
End i f 

Vous pouvez egalement imbriquer les conditions avec la syntaxe : 

If conditionl then 
Instruction 1 

Instruction n 

Elself Condition 2 then 
Instruction 1 

Instruction n 

Elself Condition 3 then 

Instruction 1 
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Instruction n 
Else 

Instruction 1 

Instruction n 
End i f 

Dans ce cas, on teste la premiere condition. Si elle est vraie alors le bloc de code correspondant est execute, sinon on 
teste la suivante et ainsi de suite. Si aucune condition n'est verifiee, le bloc de code specifie apres le else est 
execute. L'instruction else n'est pas obligatoire dans cette structure. Dans ce cas, il se peut qu'aucune instruction ne 
soit executee si aucune des conditions n'est vraie. 



b. Structure Select case 



La structure select case permet un fonctionnement equivalent, mais offre une meilleure lisibilite du code. La syntaxe 
est la suivante : 



Select case variable 
Case valeurl 
Bloc de code 1 
Case valeur2 
Bloc de code 2 
Case valeur3 
Bloc de code 3 
Case else 
Bloc de code 4 

End select 



La valeur de la variable est evaluee au debut de la structure (par le select case) puis la valeur obtenue est 
comparee avec la valeur specifiee dans le premier case (valeurl). 

Si les deux valeurs sont egales, alors le bloc de code 1 est execute et I'execution de votre code se poursuit par 
l'instruction placee apres le End select. 

Sinon, la valeur obtenue est comparee avec la valeur du case suivant, s'il y a correspondance, le bloc de code est 
execute et ainsi de suite jusqu'au dernier case. 

Si aucune valeur concordante n'est trouvee dans les differents case, alors le bloc de code specifie dans le case else 
est execute. 

La valeur a tester peut etre contenue dans une variable, mais elle peut egalement etre le resultat d'un calcul. Dans 
ce cas, le calcul n'est effectue qu'une seule fois au debut du select case. Le type de la valeur testee peut etre 
numerique ou chaine de caracteres. Le type de la variable testee doit bien sur correspondre au type des valeurs 
dans les differents case. 



Les valeurs a tester dans les differents case peuvent etre regroupees comme dans I'exemple suivant : 



Select case reponse 




Case "oui'V'OUI" 




console . writeline ("reponse 


positive " ) 


Case "non'V'NON" 




Console . writeline ("reponse 


negative " ) 


Case else 




Console . writeline ("reponse 


de normand") 


End select 





Ou bien definies sous forme d'intervalle ou de comparaison : 



Select case heure 
Case 8 to 12 

Console . writeline ( "Matin" ) 
Case 13 to 18 

Console . writeline ( "apres -mi di " ) 
Case 19 to 22 

Console . writeline ( " soir " ) 
Case is >=22 

Console . writeline ( "nuit " ) 
Case else 

Console . writeline ( "heure invalide" ) 
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End select 



II existe egalement trois instructions permettant d'obtenir le meme resultat qu'avec un if then else ou un select 
case mais avec une seule instruction : 

• L'instruction iif permet de remplacer un if then else avec la syntaxe suivante : 

iif (condition, valeur renvoyee si vrai, valeur renvoyee si faux) 

Exemple : 

resultat = iif ( reponse = " oui " , "YES", "NO") 

• L'instruction switch permet d'indiquer un ensemble d'expressions et de valeurs associees et retourne la 
valeur associee a la premiere expression qui est vraie. 

Exemple : 

resultat = switch (reponse = "oui", "YES", reponse="non", "NO") 

• L'instructio nchoose permet de choisir une valeur dans la liste des parametres, en fonction de la valeur d'un 
index. L'exemple suivant nous permet de choisir le taux de TVA en fonction du code (de 1 a 4). 

Exemple : 

tauxTva = Choose (code, 0, 5.5, 19.6, 33) 



2. Les structures de boucle 

Quatre structures sont a notre disposition : 

While . . . End While 

Do . . . Loop 

For . . . Next 

For Each . . . Next 

El les ont toutes pour but d'executer un bloc de code un certain nombre de fois en fonction d'une condition. 

a. Structure While ... End While 

While condition 

Bloc de code 
End While 

Cette syntaxe permet d'executer le bloc de code tant que la condition est vraie. La condition est evaluee avant meme 
le premier passage dans la boucle, done le bloc de code pourra tres bien ne jamais etre execute si la condition est 
fausse des le depart. Dans le cas ou la condition est vraie au premier passage, le bloc de code est execute ; la 
condition est a nouveau testee, si elle est vraie, une execution du bloc de code est effectuee, sinon la prochaine 
instruction executee sera celle qui suit le End while. II est toutefois possible de prevoir une sortie "prematuree" de la 
boucle en utilisant l'instruction Exit while. L'execution reprend done sur la ligne qui suit immediatement le End while. 

b. Structure Do ...Loop 

La structure Do Loop nous propose quatre variantes : 

Do While condition 

Bloc de code 
Loop 



Le fonctionnement de cette syntaxe est strictement identique a la structure while End while. 
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Do 

Bloc de code 
Loop While condition 



C\ Cette syntaxe nous permet de garantir que le bloc de code sera execute au moins une fois puisque la condition 
^ sera testee a la fin du bloc de code. 



Les instructions precedentes realisent une boucle tant qu'une condition etait remplie, alors que les deux syntaxes 
suivantes effectuent une boucle jusqu'a ce qu'une condition soit remplie. 

Do until condition 

Bloc de code 
Loop 

Dans ce cas, la boucle est executee jusqu'a ce que la condition soit vraie. Si elle est vraie des le debut de la boucle, le 
bloc de code ne sera jamais execute. Pour garantir au moins une execution du bloc de code, il convient d'utiliser la 
syntaxe suivante qui teste la condition a la fin de I'execution du bloc de code. 

Do 

Bloc de code 
Loop until condition 

Le bloc de code s'execute au moins une fois puis teste la condition et boucle jusqu'a ce que la condition soit vraie. 
Comme dans le cas de la boucle while, I'instruction Exit Do provoquera une sortie anticipee et inconditionnelle de la 
boucle. 



c. Structure For ... Next 

Lorsque vous connaissez le nombre d'iterations a realiser dans une boucle, il est preferable d'utiliser la structure 
for . . . next. Pour pouvoir utiliser cette instruction, une variable de compteur doit etre declaree dans le code, pour 
votre boucle. 

La syntaxe generale est la suivante : 

For Compt eur=valeur initiale To valeur Finale 

Bloc de code 
Next 

Au debut de la boucle, la variable compteur est initialisee avec la valeur initiale puis le bloc de code est execute. 
L'instruction next provoque Incrementation de la variable compteur et la comparaison de la valeur obtenue avec la 
valeur Finale de la boucle. Si la variable compteur est inferieure ou egale a la valeur Finale, le bloc de code est 
execute a nouveau, sinon I'execution se poursuit a l'instruction qui suit le next. 

Par defaut, I'increment est de un ; vous pouvez specifier une valeur pour I'increment en ajoutant le mot cle step et en 
specifiant ensuite I'increment. Cette valeur peut etre negative mais dans ce cas, une valeur initiale superieure a la 
valeur finale devra etre indiquee. 



ftComme pour les autres structures, il est possible de sortir immediatement d'une boucle for next en utilisant 
l'instruction exit for. 



d. Structure For each ... next 

Une autre syntaxe de la boucle for next permet d'executer un bloc de code pour chaque element contenu dans un 
tableau ou dans une collection. La syntaxe generale de cette instruction est la suivante : 

For each element in tableau 

Bloc de code 
Next 

II n'y a pas de notion de compteur dans cette structure, puisqu'elle effectue elle-meme les iterations sur tous les 
elements presents dans le tableau ou la collection. 
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La variable element sert a extraire les elements du tableau ou de la collection pour que le bloc puisse le manipuler. Le 
type de la variable element doit etre compatible avec le type des elements stockes dans le tableau ou la collection. 
Par contre, vous n'avez pas a vous soucier du nombre d'elements car I'instruction for each est capable de gerer elle- 
meme le deplacement dans le tableau ou la collection. Voici un petit exemple pour clarifier la situation ! 

Avec une boucle classique : 



Dim tablo() As String = {"rouge", "vert", "bleu", "blanc"} 

Dim opt As Integer 

For opt = 0 To UBound (tablo) 

Console . WriteLine (tablo (cpt) ) 

Next 



Avec la boucle for each : 



Dim tablo () As String = {"rouge", "vert", "bleu", "blanc"} 
Dim s As String 
For Each s In tablo 

Console . WriteLine (s) 

Next 



C\ Comme pour la boucle for next, vous pouvez provoquer une sortie de la boucle avant d'avoir parcouru 
I'ensemble du tableau, en utilisant I'instruction exit for. 



e. Autres structures 

Deux autres structures plutot destinees a simplifier le developpement sont disponibles : 
Structure Using End Using 

Cette structure est destinee a accueillir un bloc de code utilisant une ressource externe, comme par exemple une 
connexion a un serveur de base de donnees. Cette structure prend en charge automatiquement la liberation de la 
ressource a la fin du bloc de code. La ressource peut etre creee dans la structure ou bien exister auparavant et etre 
passee sous controle de la structure. A la fin de la structure, la ressource est liberee en appelant la methode Dispose. 

Exemple 



Dim ctn As New . SqlConnection 

ctn = New SqlConnection ( "Data Source=TG; Initial Catalog=Northwind; Integrated 
Security=True " ) 
Using ctn 

' Utilisation de la connexion 
End Using 

' La connexion est liberee 

Structure With End With 

Cette structure permet d'executer une serie d'operations sur un objet sans avoir a rappeler a chaque fois son nom. 
El le facilite enormement la lecture du code et ameliore egalement les performances. 

II suffit de specifier, a I'aide du mot cle with, le nom de la variable a utiliser et jusqu'au mot cle End with ; ce nom sera 
sous-entendu. Les differents elements de I'objet seront disponibles sans les prefixer par le nom de la variable. 

Exemple 

Dim ctn As New SqlConnection 

ctn = New SqlConnection ( "Data Source=TG; Initial Catalog=Northwind; Integrated 
Security=True " ) 

With ctn 

. Open ( ) 



.Close () 
End With 
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Les procedures et fonctions 



Dans une application Visual Basic, toutes les instructions doivent obligatoirement etre placees dans une procedure ou 
une fonction. Ces procedures ou fonctions nous permettent de creer des blocs de code qui pourront ensuite etre 
appeles dans d'autres portions de votre application. L'appel a la procedure ou fonction se fera simplement en utilisant 
I'identifiant de la procedure. 

Pour que ces procedures soient plus facilement reutilisables, vous avez la possibility d'utiliser des parametres. Les 
valeurs de ces parametres seront specifiees au moment de l'appel de la procedure. 

Au cours du developpement, n'hesitez pas a creer de nombreuses procedures et fonctions. Le decoupage de votre 
application en de nombreuses procedures et fonctions facilitera le debogage (une dizaine de blocs de code d'une 
quinzaine de lignes est plus facile a tester qu'un "pave" de cent cinquante lignes). Certaines procedures peuvent meme 
etre reutilisees plusieurs fois dans votre application. 

Dans Visual Basic, quatre types de procedures sont disponibles. 

• Les procedures Sub qui executent simplement un bloc de code a la demande. 

• Les procedures evenementielles qui sont appelees automatiquement lorsqu'un evenement se produit pendant le 
fonctionnement de votre application (die souris, touche clavier...). 

• Les fonctions qui executent un bloc de code et renvoient le resultat de leur calcul au code qui les a appelees. 

• Les procedures property qui permettent de manipuler les proprietes des objets crees dans I'application. 

• Les procedures operateur utilisees pour modifier le fonctionnement d'un operateur lorsqu'il s'applique a une 
classe ou une structure. 

Voyons maintenant comment declarer des procedures et fonctions. 



1. Procedure Sub 



Le code d'une procedure doit etre place entre les mots cles Sub et End Sub. La procedure doit etre nommee. Ce nom 
sera utilise lors de l'appel. La syntaxe generale de declaration est la suivante : 



Sub Af f icheResultat ( ) 




Instruction 1 




console . System . Writeline ( "ga marche !! 


! ") 


Instruction n 




End Sub 





Les parentheses apres le nom sont utilisees pour specifier les caracteristiques des parametres qui seront passes lors 
de l'appel. Les parentheses sont obligatoires dans la declaration meme si aucun parametre n'est requis pour la 
procedure. 

De nombreux mots cles sont utilisables, dans la declaration d'une procedure, pour modifier les possibilites de 
reutilisation de cette procedure. La plupart d'entre eux sont lies a la programmation objet et seront etudies dans un 
autre chapitre. Par contre, pour modifier la visibility de votre procedure, vous pouvez utiliser les mots cles que nous 
avons deja utilises pour la declaration des variables (Private Public Friend). Sans specification, une procedure sera 
consideree publique. 

Pour demander I'execution de votre procedure dans le code, il suffit de specifier son nom. Une autre methode utilisant 
le mot cle call est aussi possible, la syntaxe est alors la suivante : 

Call Af f icheResultat ( ) 

Si votre procedure n'attend pas de parametres, I'utilisation des parentheses est optionnel (I'environnement de 
developpement Vb les ajoutera cependant, automatiquement, dans votre code). 



2. Procedure evenementielle 
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Deux elements distinguent une procedure classique d'une procedure evenementielle : 

• I'appel de la procedure se fait automatiquement lorsque I'evenement gere par la proce- dure se produit dans 
votre application, 

• le nom de la procedure correspond a la concatenation du nom de I'element pour lequel el le gere I'evenement, 

du caractere de soulignement (_) puis du nom de I'evenement gere. Par exemple, la procedure suivante sera 
executee lorsque I'evenement click se produira sur le bouton BpOk. 

Sub BpOk_C 1 i ck (ByVal sender As Object, ByVal e As System . Event Args ) Handles 
Buttonl . Click 



Q Le mot cle Handles specifie I'objet et I'evenement pour lesquels la procedure sera executee. 



3. Fonction 

Une fonction se declare suivant le meme principe qu'une procedure, en utilisant les mots cles Function et End Function. 
Vous devez, par contre, fournir une information supplementaire. Puisque la fonction doit renvoyer au code appelant 
une valeur, vous devez preciser le type de la valeur qui sera renvoyee. La syntaxe de declaration est done la suivante : 

Function calcul () As Integer 
Instruction 1 



Instruction n 
End Function 

Dans le code de votre fonction, vous allez devoir specifier quelle valeur sera renvoyee par votre fonction. Pour cela, 
deux solutions sont possibles : 

• Utilisation du mot cle Return en indiquant la valeur que vous voulez renvoyer par la fonction. Dans ce cas, 
return provoque immediatement la sortie de la fonction, meme si ce n'est pas la derniere instruction. 

• Vous pouvez egalement, dans le code de la fonction, utiliser le nom de la fonction comme une variable et lui 

affecter la valeur de retour de la fonction. L'execution de la fonction se poursuit dans ce cas jusqu'a la derniere 
instruction. 

Une fonction peut ensuite etre utilisee dans le code a la place d'une valeur du meme type que celui renvoye par la 
fonction. El le peut egalement etre utilisee comme une procedure Sub ; dans ce cas, la valeur renvoyee sera tout 
simplement ignoree. 



4. Procedures Property 

Les procedures Property vont nous permettre d'ajouter une propriete a une classe, un module ou une structure. Ces 
procedures sont parfois appelees "accesseurs". Elles seront utilisees lorsque Ton modifie (set) ou que Ton utilise (Get) 
la propriete. Leur utilisation semble similaire a I'utilisation d'une variable, on peut affecter une valeur a une propriete 
ou lire la valeur d'une propriete. Cependant, il existe de nombreuses differences importantes entre les variables et les 
proprietes : 

• Les variables ne necessitent qu'une seule ligne de code pour la declaration. 

• Les proprietes necessitent un bloc de code pour la declaration. 

• L'acces a une variable s'effectue directement. 

• L'acces a une propriete implique l'execution d'une portion de code. 

• Le contenu d'une variable est touiours recupere tel quel. 
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• Le contenu d'une propriete peut etre modifie par le code, lors de I'acces a la propriete. 
La syntaxe generale de creation d'une propriete est la suivante : 

Property nomPropriete () as t ypeDeLaP ropr iet e 
Get 

Return . . . 
End Get 

Set 

End Set (...) 

End Property 

Dans cette declaration 

• nomPropriete correspond au nom par lequel la propriete est manipulable dans le code. 

• TypeDeLaPropriete correspond au type de donnees associe a la propriete. Vous pouvez utiliser n'importe quel 

type de donnees pour une propriete (les types de base du langage ou un type personnalise comme par 
exemple une classe). 

• Le bloc compris entre Get et End Get contient le code execute lors de la lecture de la propriete. 

• Le bloc compris entre set et End set contient le code execute lors de I'affectation d'une valeur a la propriete. Le 

parametre est destine, comme dans le cas d'une procedure classique, a faire passer de I'information vers le 
bloc de code. 

Comme pour tout element declare dans Visual Basic, vous pouvez specifier un modificateur de niveau d'acces pour une 
propriete. II s'applique au bloc Get et set. Vous pouvez egalement specifier un modificateur de niveau d'acces pour 
chacun des blocs Get et set. Dans ce cas, ils doivent etre plus restrictifs que celui indique au niveau de la propriete. 

Pc i vatc Property inom i \ Aj String 

Le rr of fi:*te.- da::ec '-ub::' n'ast p-3£ v^lde. Ls- modrcaisur d'acces d? 'Get' ec 5et'cQ.: -H:^ :!.; isbr.^i :ue nive=-j d'accc-s :e \h irop- ete. 

Return pnom 
End Get 

Sec (EyVal value As StcLn^) 

prom = value 
End Sec 
Eftta fropercy 

Les proprietes peuvent egalement etre en lecture seule ou en ecriture seule. Vous devez, dans ce cas, ajouter 
Readonly ou writeOniy devant le nom de la propriete, en eliminant bien sur le bloc de code set dans le cas d'un 
propriete en lecture seule, et le bloc Get dans le cas d'une propriete en ecriture seule. 



5. Les procedures operateur 

Ce type de procedure permet la redefinition d'un operateur<$I[] standard du langage pour I'utiliser sur des types 
personnalises (classe ou structure). Prenons un exemple avec la structure client deja utilisee. 

Public Structure Client 

Public Code As Integer 

Public Nom As String 

Public Prenom As String 
End Structure 

Essayons le code suivant : 
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Putj Lit Su£i test, [] 

Dim cLj o2 , c3 As Client 

cl. Nam = "clientl" 

c2 , Code = L2 5 
c2.Noki - "clicnt2' t 
c:2 . Ptretioni = " r pi:eniihrt2 ar 
c3 = cl c2 

Cons t L'cperateur '+' n'cst pas dc^ni po j, j Ik types '5€-iij'isabie.Ci3rnp.a.FactajbQri.tc5t.cl?snt' et 'scria'isa-lc.Ccni^j.-^ctur^tiQn.tegLclgntTI 



Console , Uc LteLme (c3 .Nom) 
Console » He iteLine (c3 .PrenoEi) 
End SLtfj 



Visiblement, le compilateur n'est pas cooperatif a I'idee d'additionner deux clients. 

Pour que ce code fonctionne, nous devons lui indiquer la procedure a suivre pour realiser cette operation. Nous devons 
done redefinir I'operateur pour I'utiliser avec deux clients. 



Public 


Structure Client 




Public Code As Integer 




Public Norn As String 




Public Prenom As String 




Public Shared Operator + (ByVal cl As Client, ByVal c2 As 


Client) 


As Client 




Dim c As Client 




c.Code = cl.Code + c2.Code 




c.Nom = cl.Nom & c2.Nom 




c. Prenom = cl. Prenom & c2 .Prenom 




Return c 




End Operator 




End Structure 



Apres cette modification, le compilateur se montre plus cooperatif et I'execution de la procedure precedente test 
affiche le resultat suivant : 



325 

clientlclient2 
prenomlprenom2 



6. Les arguments des procedures et fonctions 

Pour que le code soit plus facilement reutilisable, les valeurs qui sont manipulees par les procedures et fonctions 
peuvent etre passees comme parametres au moment de I'appel de la procedure ou fonction. Lors de la declaration de 
la procedure, vous devez specifier la liste des parametres qui seront attendus. Cette liste est situee entre les 
parentheses de la declaration de la procedure. Vous devez indiquer, pour chaque parametre, son nom et son type. Si 
plusieurs parametres sont attendus, il convient de les separer par une virgule. 

Dans le code de la procedure, les parametres sont consideres comme des variables declarees localement. 

Lors de I'appel de la procedure, une valeur, pour chacun des parametres attendus, devra etre indiquee. Prenons un 
exemple de declaration et d'utilisation : 

Function CalculTTC (Pht as double, taux as double) as double 

CalculTTC = Pht * (1 + (taux / 100)) 
End function 

PrixHt = 100 

PrixTtc = CalculTTC (PrixHt, 5.5) 
Console .Writeline (PrixTtc) 

Pour passer une variable comme parametre a une procedure (le PrixHt de I'exemple precedent), il existe deux 
possibilites : 

• le passage par valeur : dans ce cas, I'information transmise a la procedure sera simple- ment le contenu de la 
variable passee comme parametre. Le passage par valeur est I'option par defaut dans Visual Basic. 



• Le passage par reference : dans ce cas, I'information transmise a la procedure n'est plus le contenu de la 
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variable mais l'emplacement ou est stockee la variable, dans la memoire de la machine. Le code de la 
procedure va done chercher a cet emplacement la valeur dont elle a besoin. Le code de la procedure peut 
egalement modifier le contenu de la variable et ,dans ce cas, les modifications seront visibles dans le code qui a 
appele votre procedure. Pour utiliser ce mode de passage, vous devez utiliser le mot cle ByRef devant le nom 
du parametre dans la declaration de la procedure. Bien qu'il ne soit pas necessaire, le mot cle ByVal est 
egalement disponible pour specifier un passage par valeur. 

Vous pouvez egalement indiquer, dans la liste des parametres d'une procedure, que certains seront optionnels 
en plagant le mot cle optional devant le nom du parametre. Les parametres optionnels doivent toutefois 
respecter certaines regies : 

• Pour chaque parametre optionnel, une valeur par defaut doit etre specifiee dans la declaration de la 
procedure. 

Function CalculTTC (Pht as double, Optional taux as double = 19.6) 
as double 

• Lorsqu'un parametre est declare optionnel dans une procedure, tous les suivants doivent egalement 

etre declares optionnels. La declaration suivante est invalide car le troisieme parametre doit egalement 
etre optionnel : 

Function CalculTTC (Pht as double, Optional taux as double = 
19. 6, devise as string) as double 

La syntaxe doit etre la suivante : 

Function CalculTTC (Pht as double, Optional taux as double = 
1 9 . 6 , opt ional devise as string = "£") as double 

Lors de I'appel de la procedure, vous avez deux possibilites pour indiquer la valeur utilisee pour chaque parametre. 

• le passage par position : Les valeurs des parametres doivent apparaitre dans le meme ordre que dans la 

declaration de la procedure. Si vous voulez omettre une valeur pour un parametre, sa place devra tout de 
meme etre reservee dans I'appel de la procedure. 

Resultat = calculTTC(250, , "$") 

• Le passage par nom : Vous devez dans ce cas, lors de I'appel de la procedure, indiquer le nom de chaque 

parametre et la valeur que vous voulez lui affecter. L'ordre des parametres n'a pas d'importance mais vous 
etes quand meme oblige de specifier une valeur pour les parametres non optionnels. 

Resultat=calculTTC (devise := "$",Pht := 250) 

Une autre possibility permet de creer une procedure qui pourra prendre un nombre quelconque de parametres. 
Indiquez le mot cle ParamArray pour declarer un tableau de parametre. 

Dans I'exemple suivant, nous allons creer une fonction qui calcule la moyenne de tous les parametres qui lui sont 
passes. 



Function moyenne (ByVal ParamArray notes () As Double) As Double 
Dim note As Double 
Dim somme As Double 
For Each note In notes 

somme = somme + note 

Next 

moyenne = somme / notes. Length 
End Function 



La fonction peut ensuite etre appelee avec un nombre quelconque de parametres. 

Re suit at =moyenne (1 , 6, 23 , 45) 
OU 

Resultat=moyenne (12, 78) 
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Assemblies, Namespace et attributs 



1. Les assemblies 

Visual Basic est congu autour du framework .NET, ce qui lui permet de beneficier de nombreux avantages notamment 
en termes de securite, lors de I'execution et de la gestion de la memoire. Cette imbrication permet egalement d'assurer 
la compatibility entre du code ecrit dans les differents langages disponibles. Vous pouvez ainsi utiliser dans Visual Basic 
des elements congus avec d'autres langages (et inversement), de maniere totalement transparente sans meme vous 
soucier du langage dans lequel I'eleiment a ete developpe. 

L'element de base de cette reutilisation dans le framework .NET est I'assembly. II peut etre considere comme le 
regroupement de types, de ressources et de fonctionnalites congus pour fonctionner ensemble. 

Les assemblies sont stockes dans des fichiers .exe ou .dll en fonction du type. lis sont simplement generes par la 
compilation du projet correspondant. 

lis sont autodescriptifs car ils contiennent les informations necessaires pour leur utilisation dans un autre projet. Ces 
informations sont contenues dans lemanifest de I'assembly. Le manifest contient entre autres : 



• I'identite de I'assembly (son nom et sa version) 



• une liste des fichiers utilises par I'assembly (par exemple les autres assemblies utilises par celui-ci, les 
ressources bitmap, etc.). 

Pour pouvoir utiliser un assembly dans un projet, ajoutez simplement une reference vers I'assembly. Pour cela, utilisez 
le menu contextuel du dossier reference du projet. 



Explorateur de solutions 



^ * X 





+ 



Windows Application 1 

ii^j] My Project 

!□ bin 
.1 obj 



app. 



Ajouter une reference. , . 
Ajouter une reference de service, . . 



] Forml .vb 



Explorateur de solutions ^Affichage de classes 



La boite de dialogue suivante permet alors de choisir les references a ajouter au projet. 
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Ajouter une reference 



?l X| 



.NET 



|cOM | 


Projets 


Parcourir 


Recent | 



Norm du composant 



Version 



Runtime 



Chemin d'acces 



1} 



System. 
System. 
System. 
System. 
System. 
System. 
System. 
System. 
System. 



Configuration 2.0.0.0 

Configuration.!.. . 2.0.0.0 

Data 2.0.0.0 

Data.OradeClient 2.0.0.0 

Data.SqlXml 2.0.0.0 

Deployment 2.0.0.0 

Design 2.0.0.0 

DirectoryServices 2.0.0.0 

DirectoryServic... 2.0.0.0 



v2. 0.50727 D 

v2. 0.50727 D 

v2. 0.50727 D 

v2. 0.50727 D 

v2. 0.50727 D 

v2. 0.50727 D 

v2. 0.50727 D 

v2. 0.50727 D 

v2. 0.50727 D 



2.0.0.0 



v2. 0.50727 D: 



System. Drawing. Design 2.0.0.0 

System . EnterpriseServices 2.0.0.0 

System. Management 2.0.0.0 

System. Messaging 2.0.0.0 

System. Runtime. Remoting 2.0.0.0 

System. Runtime. Serializ. . . 2.0.0.0 



v2. 0.50727 
v2. 0.50727 
v2. 0.50727 
v2. 0.50727 
v2. 0.50727 
v2. 0.50727 



D 
D 
D 
D 
D 
D 



WINDOWS 
WINDOWS 
WINDOWS 
WINDOWS 
WINDOWS 
WINDOWS 
WINDOWS 
WINDOWS 
WINDOWS 



WINDOWS 



WINDOWS 
WINDOWS 
WINDOWS 
WINDOWS 
WINDOWS 
WINDOWS 



Microsof 
Microsof 
Microsof 
Microsof 
Microsof 
Microsof 
Microsof 
Microsof 
Microsof 



Microsof 



Microsof 
Microsof 
Microsof 
Microsof 
Microsof 
Microsof 



OK 



Annuler 



Les differents onglets permettent de choisir, par categorie, le type de reference a ajouter au projet : 
.NET 

L'ensemble des composants du Framework .NET disponibles. 
COM 

Les composants COM et ActiveX enregistres sur le systeme. 
Projects 

Les autres projets de la solution courante. 
Browse 

Recherche d'un fichier (dll, ocx...) contenant les ressources. 

II est possible d'ajouter plusieurs references simultanement, en utilisant la touche [Ctrl] lors de la selection dans cette 
boite de dialogue. 

Apres avoir realise ces deux operations, les ressources presentes dans I'assembly sont directement accessibles dans 
le code du projet. 



2. Les Namespaces 

Les namespaces organisent logiquement les objets disponibles dans un assembly. lis sont utilises pour lever les 
ambiguites lorsque, dans un projet, des references sont ajoutees sur des assemblies contenant des elements ayant 
des noms identiques. 

Par exemple, la classe ListBox existe dans les assemblies system, web et system, windows .Forms . Si des references sont 
ajoutees dans un projet vers ces deux assemblies, le compilateur risque de ne pas pouvoir determiner laquelle de ces 
classes vous souhaitez reellement utiliser. 

L'utilisation du nom pleinement qualifie, incluant le namespace dans lequel la classe est definie, permet de resoudre ce 
genre de probleme. 

Vous pouvez par exemple utiliser le code suivant : 
Exemple 



Dim 1 i st eWindows As System . Windows . Forms . Li stBox 
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Dim listeWeb As Sy st em . Web . UI . WebCont rol s . Li stBox . 



Cependant, l'utilisation du nom pleinement qualifie peut devenir pesant dans I'ecriture du code. II est possible d'utiliser 
le mot cle imports pour alleger le code. II indique au compilateur que certains namespaces sont sous-entendus. 

Par exemple I'instruction imports System. Data. sqiciient autorise l'utilisation de la declaration suivante : Dim ctn As 
Sqiconnection qui sans importation du name- space aurait provoque une erreur de compilation : 



Type 'SqlConnecUon' non defini. 
Dim ctn As SqlConnectiorJ 

Les instructions imports doivent etre les premieres lignes de code d'un fichier source vb. 
Cependant, soyez vigilant pour ne pas retomber sur le probleme precedent. 

Erapor t s £ y s tern ■ H i fido vs ■ Fo cms 
Enipor 5 y s tcnn ■ Web r U I . UtbCo nt c o Is 



Li Im 1 JLg List Box 

[ListBox' est amb^u, mpoite das- ecp&es de noire ou dec tytres ^ystemAVeh.UhWebCQritrols, System .Winds-fts .Forms'. [ 

L'instruction imports propose une solution elegante en creant un alias lors de I'importation du namespace. 



Imports ctrlWin = System . Windows . Forms 
Imports ctrlWeb = System . Web . UI . WebControls 
Module TestCompta 

Dim listeWindows As ctrlWin . ListBox 

Dim listeWeb As ctrlWeb . ListBox 

Cette solution autorise l'utilisation de noms d'une longueur raisonnable en evitant les conflits. 

II est egalement a noter que, en fonction du type de projet sur lequel vous travaillez, des references et des 
importations sont realisees par defaut. 

Vous pouvez verifier ces references par defaut et, eventuellement les modifier, en affichant les proprietes de votre 
projet par le menu contextuel disponible dans I'explorateur de solutions. 
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ffcrtftUS : 



System ,FO 

System. Crm^inq .rO 
S^m.Windows.Fwims -MET 



?.g.G-«0 fstae 
2.0.0.& Fist 



D : [M r*HJ 'F^'ilik r did 1 1 1£ HFr -me n-or hl-,2 . 0 , 5072 7\Sy 'J erfi , Dr**>g . -J 



5 

V System 

V! stem. CcJjett ions- 

W„ 5ystem.Cc4ecJticris.G«Ki?C 

Sytf cm.Di-dFnftQ 
£G Sy^cm.DiiiQfWitiCS 

v. Syrtem,WifKk>ns,F&-ms. 

flic r« of t . Vrtsuattjstc . Oe vkw 
' rteiwcft.Visud£ksstc:.PieK> 



AjoJtef... 


•1 



















■■ 


Carter ufte 













■M- | 



Les importations par defaut seront actives dans chaque module de votre projet. 

Les namespaces seront declares dans le code a I'aide des mots cles Namespace nom du namespace et End 
Namespace. 

Tous les elements declares entre ces deux mots cles seront accessibles en les prefixant avec le nom du namespace. 



Namespace Facturation 
Public Class Tarification 

Public Shared Function calculTTC (prixHt As Decimal, tauxTva As Decimal) 
As Decimal 

Return prixHt * (1 + tauxTva / 100) 

End Function 
End Class 
End Namespace 



Dans I'exemple precedent, la fonction caicuinc definie dans la classe Tarification est accessible en la prefixant par 
le nom du namespace. Toutefois le nom du namespace racine specifie devra egalement etre ajoute au niveau des 
proprietes du projet, en le separant des autres noms de namespace par un point. 
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Dans notre exemple, la fonction caicuiTTC est done accessible par le code suivant : 

Sub Main() 

prixTtc = Compta . Facturation . Tarif ication . caicuiTTC ( 1 0 0 , 5.5) 

End Sub 

Utilisez la meme technique, dans le cas de namespaces imbriques ; comme dans I'exemple suivant : 

Namespace Gestion 
Namespace Paye 

Public Class Salaire 

End Class 
End Namespace 
Namespace Facturation 

Public Class Facture 

End Class 
End Namespace 

End Namespace 



La Classe Salaire Sera done accessible avec le nom Compta. Gestion. Paye . Salaire. 



3. Les attributs 

Les attributs sont des marques que vous pouvez placer dans votre code afin d'ajouter des informations 
supplementaires aux elements de votre application. 

lis sont sauvegardes dans les metadonnees de 1'assembly pendant la compilation du projet. Les metadonnees sont 
utilisees par le runtime pour gerer le debogage, le suivi des versions, la compilation et d'autres informations sur 
I'utilisation de votre code. Les attributs peuvent s'appliquer a un assembly, un module ou une portion de code plus 
petite, telle qu'une procedure ou fonction. lis pourront parfois accepter des arguments pour modifier leur signification. 

Les attributs sont places dans le code entre les symboles et comme une balise Html. Si plusieurs attributs sont 
utilises, ils doivent etre separes par des virgules. Les eventuels parametres d'un attribut seront places entre 
parentheses. 

La portee d'un attribut peut egalement etre etendue par les mots cle Assembly : ou Module : places avant I'attribut. La 
syntaxe d'utilisation d'un attribut est done : 
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< [Assembly ou Module :] At t r ibut 1 ( [ par amet re 1 , par amet re 2 ] ) , At t r ibut 2 



a. Attributs les plus courants en Visual Basic 



Parmi les attributs disponibles, certains d'entres eux sont tres frequemment utilises dans le developpement avec 
Visual Basic. Nous allons etudier leur utilisation et I'illustrer par un exemple. 



VBFixedStringAttribute: 

Cet attribut force la creation d'une variable de type chaine de caracteres de longueur fixe. II est utilise lors de la 
declaration d'une structure, en vue de I'enregistrement dans un fichier pour avoir des enregistrements de ta i I le 
constante. 

Exemple 



Structure Client 






<VBFixedString (15) > 


public 


nom as String 


<VBFixedString (15) > 


public 


prenom as String 


End Structure 







ComClassAttribute: 



Cet attribut demande au compilateur la generation de code supplementaire pour rendre compatible une classe avec 
le modele COM. Cette classe sera ensuite compatible avec d'anciens langages de programmation incompatibles avec 
la plate-forme .NET. 

Exemple 



<ComClass()> Public Class Impots 



Public Sub New() 
MyBase .New ( ) 
End Sub 



Function Calcullmpot s (ByVal salaire As Integer) 

Return salaire * 0.3 
End Function 
End Class 



Pour compiler le code de cet exemple, il faut activer I'option au niveau des proprietes du projet dans I'option Inscrire 
pour Com Interop. 

Apres compilation, cette classe peut etre utilisee dans un langage compatible COM, simplement en referengant la 
bibliotheque dll generee. 



La figure suivante presente I'utilisation a partir de Vb 6. 



n, Explorateur d'objets 



.Jn]2<] 



testCorn 



3 



r 



Classes 
0 <globales> 
^jlrnpots 



3 A*l 

I Membres de 'Impots' 



Calcullrnpots 



Function Calcullmpots(sa/aj're./)s Lon$ 
Membre de testCorn Impots 
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SerializableAttribute, NonSerializedAttribute 



Ces deux attributs controlent la serialisation d'une classe et de ces membres. La serialisation permet I'enregistrement 
d'une instance de classe, dans un fichier assurant ainsi la persistance des informations. Le fichier genere peut etre au 
format binaire ou XML, dans ce cas, il facilite I'echange d'informations entre applications. Pour qu'une classe 
soit utilisable par le mecanisme de serialisation, celle-ci doit etre marquee avec I'attribut SerializableAttribute. Lors 
de I'operation de serialisation, le contenu de chacun des membres de I'instance de la classe est enregistre dans le 
fichier. Si certains d'entre eux ne doivent pas etre sauvegardes dans le fichier, ils doivent etre marques avec I'attribut 

NonSerializedAttribute. 

L'exemple ci-apres definit la classe Personne avec deux membres (Nom et Prenom) qui seront serialises et un membre 
(Age) qui ne sera pas serialise. Une instance de la classe est creee puis sauvegardee dans un fichier au format XML. 

Exemple 



Imports System 
Imports System. 10 

Imports System . Runtime .Serialization 

Imports System . Runtime .Serialization . Formatters .Soap 

<Serializable ( ) > Public Class Personne 
Public Nom As String 
Public Prenom As String 

<NonSerialized ( ) > Public Age As Integer 
Public Sub New() 
End Sub 
End Class 
Module test 

Public Sub Main ( ) 

Dim UnePersonne As New Personne () 

UnePersonne . Nom = "Dupond" 

UnePersonne . Prenom = "Paul" 

UnePersonne . Age = 25 

Dim stream As Stream = File . Open ( "donnees . xml " , FileMode . Create ) 
Dim formatter As New SoapFormatter ( ) 
formatter .Serialize ( stream, UnePersonne ) 
stream . Close ( ) 
End Sub 
End Module 



L'execution de ce code genere le fichier XML suivant : 



< SOAP -ENV : Envelope xmlns : xsi="http : //www. w3 . org/2 0 01/XMLSchema-instance" xmlns : 
xsd="http: //www.w3 . org/2 0 0 1 /XMLSchema" xmlns : SOAP-ENC="http : //schemas .xmlsoap. 
org/ soap /encoding/ " xmlns : SOAP-ENV="http : //schemas . xmlsoap . org/ soap /envelope/ 
" xmlns : clr="http : //schemas .microsoft . com/ s oap/ encoding/ clr/1 . 0 " SOAP -ENV: 
encodingStyle="http : //schemas . xmlsoap . org/ soap /encoding/ "> 
<SOAP-ENV:Body> 

<al : Personne id="ref-l" xmlns : al="http: //schemas .microsoft . com/clr/nsassem/ 

serializable/serializable%2C%20Version%3Dl .0.0. 0%2C%20Culture%3Dneutral%2C%20 

PublicKeyToken%3Dnull"> 

<Nom id="ref-3">Dupond</Nom> 

<Prenom id="ref-4 ">Paul</Prenom> 

</al : Personne> 

</SOAP-ENV:Body> 

</SOAP-ENV: Envelope> 



On retrouve, sauvegardee dans ce fichier, notre instance de la classe Personne avec ses deux membres Nom et Prenom 
et, comme nous I'avons indique dans la definition de la classe, le membre Age n'est pas sauvegarde. 

DIIImportAttribute 

Cet attribut est utilise pour indiquer qu'une fonction est importee a partir d'une bibliotheque de code non manage. II 
permet notamment I'utilisation de fonctions definies dans une bibliotheque du systeme. Dans l'exemple suivant, la 
fonction MoveFiie peut etre utilisee comme une fonction classique. 

Exemple 

<DllImport ( "KERNEL32 . DLL" ) >Public Function MoveFiie (ByVal src As String, 
ByVal dst As String) As Boolean 
End Function 
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Introduction 



Avec Visual Basic.NET, la notion d'objet est devenue omnipresente et necessite un minimum d'apprentissage. Nous 
allons done voir dans un premier temps le principe de la programmation objet et le vocabulaire associe, puis nous 
verrons comment mettre cela en application avec Visual Basic. 

Dans un langage procedural classique, le fonctionnement d'une application est regie par une succession d'appels aux 
differentes procedures et fonctions disponibles dans le code. II n'y a aucune liaison entre les donnees et les procedures 
qui les manipulent. Dans un langage objet, on va au contraire essayer de regrouper au maximum les donnees et le code 
pour les manipuler. Les classes sont la representation symbolique des objets. Elles decrivent les champs, proprietes, 
methodes et evenements de la meme maniere qu'un plan d'architecte decrit les differentes parties d'un batiment. 

Poursuivons notre analogie entre une classe et un plan de batiment. Nous savons qu'II est possible de construire 
plusieurs batiments a partir du meme plan. De la meme maniere, plusieurs objets peuvent etre construits a partir de la 
meme classe. Une classe peut done etre utilisee pour creer autant d'instances que necessaire. 

Sur un plan de batiment, certaines zones peuvent avoir un acces limite a certaines personnes. De la meme fagon, dans 
une classe, certains elements peuvent avoir un acces restreint. C'est le principe d'encapsulation. 

Les termes classe et objet sont souvent confondus mais il s'agit, en fait, d'elements bien distincts. Une classe 
represente la structure d'un element alors que I'objet est un exemplaire cree sur le modele de cette structure. La 
modification d'un element dans un objet ne change absolument pas les autres objets crees a partir du meme modele 
(classe). Dans notre exemple de plan de batiment, I'ajout d'une nouvelle piece a un batiment existant ne change rien 
aux autres batiments construits suivant le meme plan. Par contre, la modification du plan (de la classe) entraine des 
modifications pour tous les nouveaux batiments (tous les nouveaux objets). 

Les classes sont constitutes de champs, proprietes, methodes et evenements. Les champs et les proprietes 
representent les informations contenues dans les objets. Les champs sont consideres comme des variables et il est 
possible de lire leur contenu ou de leur affecter une valeur directement. Par exemple, si vous avez une classe 
representant un client, vous pouvez enregistrer son nom dans un champ. 

Les proprietes se manipulent de la meme fagon que les champs, mais sont mises en ceuvre a partir de procedures de 
propriete Get et set. Ceci autorise plus de controle sur la fagon dont les valeurs sont lues ou affectees et permet de 
valider les donnees avant leur utilisation. 

Les methodes representent les actions qu'un objet peut effectuer. Elles sont mises en ceuvre par la creation de 
procedures ou fonctions dans une classe. 

Les evenements sont des informations qu'un objet regoit ou transmet depuis ou vers un autre objet ou application. Les 
evenements permettent aux objets d'executer des actions lorsqu'une situation particuliere se produit. Comme Windows 
est un systeme d'exploitation evenementiel, les evenements peuvent provenir d'autres objets, du systeme ou des 
actions de I'utilisateur sur la souris et le clavier. 

Ceci n'est qu'une facette de la programmation orientee objet. Trois autres elements sont egalement fondamentaux : 

• L'encapsulation. 

• L'heritage. 

• Le polymorphisme. 

L'encapsulation est la capacite permettant de creer et de controler I'acces a un groupe d'elements. Les classes 
fournissent le moyen le plus fiable d'assurer l'encapsulation. Si nous prennons I'exemple d'un compte bancaire, dans une 
programmation classique, il nous faudrait de nombreuses variables et procedures ou fonctions pour manipuler les 
informations. La situation serait encore plus complexe si nous devions gerer simultanement plusieurs comptes bancaire. 
II faudrait alors travailler avec des tableaux et jongler avec les index. L'encapsulation permet de regrouper les 
informations et le code les manipulant dans une classe. Si vous devez travailler avec plusieurs comptes bancaire 
simultanement vous aurez alors plusieurs instances de la meme classe, limitant ainsi le risque d'erreurs. L'encapsulation 
assure egalement un controle sur I'utilisation des donnees et des procedures ou fonctions. Vous pouvez utiliser les 
modificateurs d'acces, tels que Private ou Protected, pour restreindre I'acces a certaines methodes, proprietes ou 
champs. Une regie fondamentale de l'encapsulation stipule que les donnees d'une classe ne doivent etre manipulees 
que par le code de la classe (procedures de proprietes ou methodes). Cette technique est parfois appelee dissimulation 
de donnees. Elle assure la securite de fonctionnement de votre code en masquant les details internes de la classe et en 
evitant ainsi qu'ils ne soient utilises de maniere inappropriee. Elle autorise aussi la modification d'une partie du code 
sans perturber le fonctionnement du reste de I'application. 

L'heritage permet la creation d'une nouvelle classe, basee sur une classe existante. La classe servant de modele pour la 
creation d'une autre classe est appelee classe de base. La classe ainsi creee herite des champs, proprietes, methodes 
et evenements de la classe de base. La nouvelle classe peut etre personnalisee en y ajoutant des champs, proprietes, 
methodes et evenements. Les classes creees a partir d'une classe de base sont appelees classes derivees. Vous 
pouvez done definir une classe de base et la reutiliser plusieurs fois pour creer des classes derivees. 

Le polymorphisme est une autre notion importante de la programmation orientee obiet. Par son intermediate, il est 
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possible d'utiliser plusieurs classes de maniere interchangeable meme si ces classes implementent leurs proprieties et 
methodes de maniere differente. Ces proprieties et methodes sont utilisables par le meme nom, independamment de la 
classe a partir de laquelle I'objet a ete construit. 

Trois autres concepts sont egalement associes au polymorphisme. La surcharge, la substitution et le masquage de 
membres permettent la definition de membres d'une classe portant le meme nom. II existe cependant quelques petites 
distinctions entre ces trois techniques. 

La surcharge est utilisee pour concevoir des proprietes ou des methodes portant le meme nom mais ayant un nombre de 
parametres differents ou des types de parametres differents. 

La substitution permet la redefinition de methodes ou proprietes heritees d'une classe de base. Les membres substitues 
peuvent accepter le meme nombre et type de parametres que la methode ou propriete de la classe de base. 

Le masquage sert a remplacer localement, dans une classe, un membre d'une classe. N'importe quel type de membre 
peut masquer un autre membre. Par exemple, une propriete peut masquer une methode heritee. Le masquage se fait 
uniquement grace au nom. Les membres masques ne sont pas heritables. 
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Mise en ceuvre avec Visual Basic 



Dans le reste de ce chapitre, nous allons travailler sur la classe Personne dont la representation UML (Unified Modeling 
Language) est disponible ci-dessous. 



Personne 

-nom : String 
-prenom : String 
-date_nais : Date 

+Calcul_ageQ: Integer 



UML est un langage graphique dedie a la representation des concepts de programmation oriente objet. Pour plus 
d'informations sur ce langage, vous pouvez consulter I'ouvrage UML2 dans la meme collection. 



1. Creation d'une classe 

La creation d'une classe passe par la declaration de la classe elle-meme et de tous les elements la constituant. 



a. Declaration de la classe 

La declaration d'une classe se fait en utilisant les mots cles class et End class. Entre ces deux mots cles, on trouve 
des declarations de variables qui seront les champs de la classe et des procedures qui seront les methodes de la 
classe. 

La syntaxe generale de definition d'une classe est done la suivante : 

[ Public | Private | Protected | Friend | Protected Friend ] 
[ Mustlnherit | Not Inherit able ] 
Class nom de la classe 
[ Inherits nom de la classe de base] 
[ Implements nom de 1 ' inter face] 

End Class 

De nombreux mots cles sont disponibles pour la personnalisation d'une classe. Au moment de sa declaration, on peut 
specifier la visibility de la classe. Les mots cles suivants sont disponibles : 

Public 

La classe pourra etre utilisee dans tout votre projet mais aussi dans d'autres projets. 

Friend 

L'acces a la classe est limite au projet dans lequel elle est definie. 

Private 

La classe ne peut etre utilisee que dans le module dans lequel elle est definie. 

Protected 

La classe ne peut etre utilisee que dans une sous-classe de celle dans laquelle elle est definie. Ce mot cle ne peut 
etre utilise que pour une classe declaree dans une autre classe. 

Protected Friend 

Identique a I'union des portees protected et friend. 

Vous pouvez egalement indiquer comment votre classe va se comporter vis-a-vis de I'heritage. Deux options sont 
possibles : 

Mustlnherit 
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Indique que la classe sert de classe de base dans une relation d'heritage. Vous ne pourrez pas creer d'instances de 
cette classe. En general, dans ce genre de classe, seules les declarations des methodes sont definies, il faudra dans 
les classes derivees ecrire le contenu de ces methodes. 



Not Inheritable 



Cette classe sera la derniere de la hierarchie. II ne sera done pas possible d'utiliser cette classe comme super classe 
d'une autre classe. 

Pour indiquer que votre classe recupere les caracteristiques d'une autre classe par une relation d'heritage, vous devez 
utiliser le mot cleinherits suivi du nom de la classe de base. Vous pouvez egalement implementer dans votre classe 
une ou plusieurs interfaces. Ces deux notions seront vues en detail plus loin dans ce chapitre. 

Le debut de la declaration de notre classe Personne est done le suivant : 



Public Class Personne 
Dim nom As String 
Dim prenom As String 
Dim date_naiss As Date 

End Class 



b. Classe partielle 

La definition d'une classe peut etre repartie sur plusieurs declarations en utilisant le mot cle Partial. Cette technique 
autorise la definition de la classe dans plusieurs fichiers sources. El le est tres utilisee dans Visual Studio pour 
permettre la personnalisation de classes generees automatiquement. Le code genere est en general place dans un 
fichier nomme . designer. vb qui ne doit, en principe, pas etre modifie directement. Lors de la compilation, le 
compilateur regroupe toutes les definitions partielles pour obtenir le code source de la classe. Les differentes parties 
de la definition d'une classe doivent par contre etre dans le meme projet et faire partie du meme namespace. II y a un 
autre petit piege a eviter egalement. Regardons le code suivant : 



Namespace Compta 

Partial Public Class Personne 
Public Sub procedure]. () 
End Sub 
End Class 
Module Modulel 

Partial Public Class Personne 
Public Sub Procedure2() 
End Sub 
End Class 
End Module 
End Namespace 



Au premier abord rien d'illegal puisque le compilateur genere le code correctement. Par contre, il n'a pas la meme 
vision des choses que nous. Regardons ce que nous presente I'explorateur de classes. 



Affichage de classes 



m 




<Rechercher> 



ClassePartielle 



B-|fl 

S"C~2 References 
&■■{} ClassePartielle 
&■■{} Compta 
□■■^ Modulel 
H^^tit essai 



S- Personne 
Personne 



C^Explorateur d. . . Affichage de 
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Deux classes Personne sont disponibles. Le compilateur a en fait considere que nos deux definitions de classe ne font 
pas partie du meme namespace. En effet Tune d'entre elle est situee dans le module, et le nom de celui-ci est rajoute 
automatiquement comme prefixe a la classe. 

c. Creation de proprieties 

Vous pouvez creer des variables simples pour stocker les informations de votre classe mais les procedures de 
propriete fournissent d'avantage de flexibility et de controle sur le stockage des informations dans une classe. Elles 
permettent a la classe de proteger et valider ses propres donnees. Une procedure de propriete est definie entre les 
mots cles Property et End Property. Entre ces deux mots cles, deux blocs de code sont definis a I'aide des mots cles 
Get, End Get et Set End Set ; le bloc de code Get est execute lors de la lecture de la propriete, le bloc de code set est 
execute lors de I'affectation d'une valeur a la propriete. 

Notre classe Personne peut etre amelioree de la fagon suivante : 



Public Class Personne 

Private leNom As String 
Private lePrenom As String 
Private laDate_naiss As Date 

Public Property nom ( ) As String 
Get 

Return leNom 
End Get 

Set (ByVal Value As String) 

leNom = Value 
End Set 
End Property 

Public Property prenom() As String 
Get 

Return lePrenom 
End Get 

Set (ByVal Value As String) 

lePrenom = Value 
End Set 
End Property 
Public Property date_naiss() As Date 
Get 

Return laDate_naiss 
End Get 

Set (ByVal Value As Date) 

LaDate_naiss = Value 

End Set 
End Property 
End Class 



La creation des proprietes permet maintenant d'acceder de maniere indirecte aux champs de la classe. Nous pouvons 
done nous permettre de modifier la visibilite des champs de la classe et les rendre prives. C'est d'ailleurs une pratique 
recommandee pour respecter le principe d'encapsulation. Nous avons done la possibility d'etre plus exigeant 
concernant les informations enregistrees dans notre classe. Nous allons mettre en pratique les quelques regies de 
gestion suivantes : 

• Le nom sera stocke en majuscules. 

• Le prenom sera stocke en minuscules. 

• La date de naissance ne sera pas inferieure a 1900. 

Les procedures de propriete sont done chargees de I'application de ces regies. 



Property nom() As String 
Get 

Return leNom 
End Get 

Set (ByVal Value As String) 
leNom = UCase (Value) 
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End Set 
End Property 

Property prenom() As String 
Get 

Return lePrenom 
End Get 

Set (ByVal Value As String) 

lePrenom = LCase (Value) 
End Set 
End Property 

Property date_naiss() As Date 
Get 

Return laDate_naiss 
End Get 

Set (ByVal Value As Date) 

If Value. Year >= 1900 Then 

laDate = Value 
End If 
End Set 
End Property 



CS A noter que les procedures de propriete ont un acces complet aux champs de la classe, y compris ceux declares 
^ prives. 



Lecture seule et ecriture seule 

II peut parfois etre interessant de restreindre les acces possibles a une propriete. Elles peuvent done etre definies en 
lecture seule ou en ecriture seule. Pour indiquer votre intention, vous devez utiliser les mots clesReadOnly 
ouwriteOnly, lors de la declaration de la propriete. 

Le bloc de code Get doit etre omis pour une propriete en ecriture seule. Pour une propriete en lecture seule, e'est le 
bloc de code set qui doit etre omis. Pour mettre cela en application, nous allons ajouter a la classe Personne une 
propriete MotDePasse en ecriture seule et une propriete Age en lecture seule. L'age peut se deduire directement de la 
date de naissance et le mot de passe n'a pas a etre accessible de I'exterieur de la classe. 



Readonly Property age() As Long 
Get 

Return DateDif f (Datelnterval . Year , date_naiss, Now ( ) ) 
End Get 
End Property 
WriteOnly Property MotDePasse () as String 
Set (ByVal Value As String) 
LeMotDePasse=value 
End Set 
End Property 



Propriete par defaut 

La propriete par defaut d'une classe est la propriete qui est utilisee lorsqu'aucune propriete particuliere n'est indiquee 
pour un objet. C'est en general la propriete la plus utilisee d'une classe. El le permet de rendre le code plus concis en 
evitant la repetition frequente du meme nom de propriete. 

La propriete par defaut doit cependant respecter certaines contraintes : 

• El le doit accepter au moins un argument. 

• El le peut ne pas etre privee ou partagee. 

• Si une propriete surchargee est la propriete par defaut alors toutes les autres proprietes surchargees ayant le 
meme nom doivent egalement etre des proprietes par defaut. 

• II ne peut y avoir qu'une seule propriete par defaut dans une classe. Cette regie s'applique egalement pour 
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les proprieties heritees. 



• Si une propriete par defaut d'une classe de base est masquee par une propriete qui n'est la propriete par 

defaut d'une sous-classe, alors la propriete par defaut de la classe de base est toujours accessible en 
n'utilisant que le nom de I'objet. 



Mettons cela en application en ajoutant, a la classe Personne, la liste des enfants de cette personne et en definissant 
cette propriete comme propriete par defaut. 

Le code de notre classe Personne devient done : 



Public Class Personne 






Private leNom As String 






Pri vafp IpPrpnom As Strincr 

J_ _L_ _1_ V ( L. 1 \ _l_ \ - J_ J_ \ - ± ± ILL J. i. k J k ) I . _L_ _1_ J. 1 \~A 






Private laDate_naiss As Date 






Private leMotDePasse As String 






Private lesEnf ant s ( 9 ) As Personne 






Property nom() As String 












Return leNom 






End Get 






Set (ByVal Value As String) 






1 pNTom = [Jfasp (Val hp) 

-I- v J-N 1 L L \J OL kj> V y V LA. _L_ \ J 






End Set 






End Property 






Property prenom() As String 












Return lePrenom 






End Get 






Set(ByVal Value As String) 






lePrenom = LCase (Value) 






End Set 






End Property 






Property date_naiss() As Date 






Get 






Return laDate_naiss 






End Get 






Set (ByVal Value As Date) 






If Value. Year >= 1900 Then 






laJJaL 1 Id _L oo — ^Vct_LU.t^^ 






End If 






End Set 






End Property 






Readonly Property age() As Long 






Get 






Return DateDiff (Datelnterval . Year , 


date_naiss , 


Now() ) 


End Get 






End Property 






WriteOnly Property MotDePasseO As String 






Set (ByVal Value As String) 






-r TV /r j t — \ t — \ 

LeMotDePasse = value 






End Set 






End Property 






Default Public Property enfant (ByVal index 


As Integer) 


As Personne 


Get 






Return lesEnfants (index) 






End Get 






Set (ByVal value As Personne) 






lesEnf ant s ( index) = value 






End Set 






End Property 






End Class 
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A noter que nous sommes obliges de creer un nouveau champ dans la classe Personne afin d'assurer le stockage de la 
liste des enfants. Pour I'instant, ce champ est constitue d'un tableau de personne mais pourra etre avantageusement 
remplace par une structure plus souple a gerer, comme par exemple une collection. La propriete enfant attend done 
en parametre un index permettant de specifier I'enfant sur lequel nous souhaitons travailler. 

Le code suivant nous permet de tester le bon fonctionnement de notre classe : 



Module Principal 
Sub Main ( ) 

Dim p As New Personne 

Dim enfantl As New Personne 

Dim enfant2 As New Personne 

p.nom = "dupond" 

p.prenom = "paul" 

p.date_naiss = #12/23/1954# 

enfantl. nom = "dupond" 

enfant 1 . prenom = "pascal" 

enfantl .date_naiss = #10/5/1979# 

' nous pouvons egalement utiliser le nom du parent pour 

' initialiser le nom de I'enfant 

enfant2.nom = p.nom 

enfant2 . prenom = "marc" 

enfant2 .date_naiss = #4/18/1982# 

' nous pouvons affecter un enfant a une personne en utilisant 
' la propriete enfant 
p. enfant (0) = enfantl 

' comme e'est egalement la propriete par defaut de la classe 
' nous pouvons utiliser cette syntaxe 
p ( 1 ) = enf ant2 

' verifions que nos informations sont correctes 

Console . WriteLine ( "Mr {0} {1} ne le {2} a 2 enfants", p.nom, p.prenom, 
p . date_naiss ) 

Console . WriteLine ("{ 0 } {1} qui a {2} ans", p(0).nom, p(0). prenom, 
p ( 0 ) . age ) 

Console . WriteLine ("{ 0 } {1} qui a {2} ans", p(l).nom, p(l). prenom, 
p ( 1 ) . age ) 

Console .WriteLine ( "appuyer sur une touche pour quitter") 
Console . ReadLine ( ) 
End Sub 
End Module 

Nous obtenons sur la console le resultat suivant : 

Mr DUPOND paul ne le 23/12/1954 00:00:00 a 2 enfants 

DUPOND pascal qui a 26 ans 

DUPOND marc qui a 23 ans 

Appuyer sur une touche pour quitter. 

C\ Nous pouvons en profiter pour verifier que nos regies concernant le nom et le prenom sont bien prises en 
" compte : le nom est en majuscules, le prenom est en minuscules. 



d. Creation de methodes 

Les methodes sont des procedures ou fonctions definies a I'interieur d'une classe. Elles sont en general utilisees pour 
manipuler les champs et les proprietes de la classe. Pour pouvoir utiliser une methode, il suffit de prefixer le nom de la 
methode par le nom de I'objet sur lequel vous voulez appeler la methode. 

Ajoutons a la classe Personne, la fonction caicui_age () et la procedure Affichage en inserant le code suivant : 



Public Function Calcul_age() As Integer 

Return DateDif f (Datelnterval . Year , date_naiss, Now ( ) ) 
End Function 
Public Sub affichage () 

Console .Write ("Mr {0} {1} ne le {2}", leNom, lePrenom, date_naiss) 
End Sub 
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CS A noter que dans ces lignes de code, nous pouvons manipuler les champs de la classe meme s'ils sont declares 
^ prives, car nous sommes a I'interieur de la classe. II est egalement possible d'acceder aux informations de la 
classe en utilisant les proprietes. Dans ce cas, les regies de gestion concernant le nom et le prenom seront 
appliquees. 

Nous pouvons modifier notre code de test pour utiliser la procedure et la fonction ajoutees a la classe. 



p . af f ichage ( ) 

Console . WriteLine ( " a 2 enfants") 

Console . WriteLine ("{ 0 } {1} qui a {2} ans", p(0).nom, p ( 0 ). prenom, p ( 0 ) . Calcul_age) 

Console . WriteLine ("{ 0 } {1} qui a {2} ans", p(l).nom, p ( 1 ). prenom, p ( 1 ) . Calcul_age) 
Console . WriteLine ( "appuyer sur une touche pour quitter") 
Console . ReadLine ( ) 



Surcharge de methode 

La surcharge de methode est la creation, au sein d'une classe, de methodes ayant un nom identique mais un nombre 
de parametres ou des types de parametres differents. Ceci nous permet de conserver un nom coherent pour plusieurs 
methodes et dont le but est similaire mais pour lesquelles, seuls quelques details changent. Les parametres suivants 
ne sont pas pris en compte pour distinguer deux methodes surchargees : 

• Le nom des parametres. 

• Le type de retour d'une fonction. 

• Les modificateurs ByVal ou ByRef appliques aux parametres de la methode. 

Nous pouvons, par exemple, surcharger la methode affichage de la classe Personne pour prendre en compte la langue 
dans laquelle doit se faire I'affichage. Le parametre attendu par la procedure permet de choisir la langue. 



Public overloads Sub 


affichage (ByVal 


langue As 


String) 


Select Case langue 








Case "fr" 








Console .Write ( "Mr 


{0} {1} ne le {2} 


", leNom, 


lePrenom, date_naiss) 


Case "en" 








Console .Write ( "Mr 


{0} {1} was born 


the {2}", 


leNom, lePrenom, date_naiss) 


End Select 








End Sub 









Le mot cleoverioads est optionnel lors de la surcharge d'une methode a I'interieur d'une classe. Cependant, s'il est 
specifie pour une methode surchargee, il doit I'etre pour toutes les autres. 

Public Over loads Sub af f ichage () 

consoie.urite ("Ht <□> (i> ne le {2}", lewotn, leFeenoin, a«.s_mu .-^ : 

End Sub 

Public Sub affichage (BvVai langue As String) 

Select Etta 'affichage' dat decbrco 'Overbade, z-y uns -sr-frc 'aff chaos-' est d^do'cg'QYTeHoarfs' ou 'Overrides'.] 



Case "fr* 

Conso le. Write ("He {0> « 1} ne le <2>", LeHotn, leFeenoro, a«e_iiai3s) 

Case H en N 

console. write ("He { 0} < i> is born on {2> ,r P leftem, lePrenow, oace_naiss] 

End Select 
Enfi 3ufc 

Les methodes heritees d'autres classes peuvent egalement etre surchargees. II convient cependant d'etre prudent, 
dans ce cas, avec I'utilisation ou non du mot cleoverioads. S'il n'est pas utilise pour la surcharge alors toutes les 
autres surcharges de la classe de base seront inaccessibles. Par contre, s'il est utilise, toutes les methodes 
surchargees seront disponibles. Pour illustrer cela, nous allons considerer que nous avons une classe saiarie qui 
herite de la classe Personne. Nous verrons un petit peu plus loin comment mettre cet heritage en ceuvre. Nous 
pouvons, dans notre classe saiarie, surcharger la methode Affichage (). Si nous n'utilisons pas le mot cle overloads, 
Visual Studio nous previent d'un probleme potentiel, lie a I'inaccessibilite des methodes Affichage o de la classe de 
base. 

POM it SUb JJStftf&toWSH 



s^jq 'Pt : t&vs^' r-Hque- ui membre -strdurpHble' (Jetbr* (Jars Id daw "FasormT b«<. & vdus soLhaitaz sor durger ^ rrwthoie base, vxr? (Jsvta dedar tt cettt 
End Sub rafahflde'&^fk^. 
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Si, par contre, le mot overloads est utilise, nous pouvons avoir acces par la classe saiarie a toutes les methodes 
surchargees ; y compris celles definies dans la classe Personne. 

Dim s As New Saiarie 
s . noni = "durand" 



affichage ( 




.A. 


1 of 2 




affichage (langue As String) 



Substitution de methode 

Les classes derivees heritent des proprietes et methodes de leur classe de base. Vous pouvez done les reutiliser, a 
partir d'une sous-classe, sans aucune modification. Par contre, si le fonctionnement de cette propriete ou methode 
n'est pas adapte a la nouvelle classe, vous avez la possibility de la substituer par une nouvelle implementation dans 
la classe derivee. II faut dans ce cas utiliser le mot cle overrides lors de la substitution dans la classe derivee. II est 
egalement imperatif que la classe de base ait autorise cette substitution par I'utilisation du mot cleoverridabie. Sans 
indication particuliere, une methode ou une propriete n'est pas substituable. En general, la substitution est utilisee 
pour assurer le polymorphisme entre classes. Les methodes substitutes doivent bien sur avoir le meme nom mais 
egalement le meme nombre et type de parametres que les methodes de la classe de base auxquelles elles se 
substituent. Nous pouvons ainsi dans la classe saiarie substituer la methode Affichage. 



Public Overrides Sub affichage () 

Console . Write ( "Mr {0} {1} ne le {2} gagne {3} euros par mois", nom, prenom, 
date_naiss, salaire) 

End Sub 



Avec cette declaration, la methode affichage de la classe Personne n'est plus visible aux utilisateurs de la classe 
saiarie. Seule la methode Affichage de la classe saiarie est accessible. Cependant, le code de la methode Affichage 
de la classe saiarie peut quand meme avoir acces a cette methode en utilisant le mot cle Mybase. Nous aurions done 
pu ecrire pour la methode Af fiche de la classe saiarie. 



Public Overrides Sub affichage () 




' Appel de la methode affichage de la classe 


Personne 


MyBase . affichage ( ) 




' Ajout des f onctionnalites specifiques a la 


classe Saiarie 


Console . WriteLine ( "gagne {0} euros par mois", 


salaire ) 


End Sub 





Des qu'une methode est declaree comme etant substituable dans une classe, elle le sera pour toutes ses sous- 
classes quel que soit le degre de parente (classe fille, petite fille...). Le mot cleNotoverridabie peut etre utilise pour 
bloquer a partir d'un niveau donne cette fonctionnalite. Par exemple, dans la classe saiarie nous aurions pu ecrire : 



Public NotOverridable Overrides Sub affichage () 
MyBase . affichage ( ) 

Console . WriteLine ( "gagne {0} euros par mois", salaire) 

End Sub 



Cette syntaxe annule, pour les sous-classes de la classe saiarie, I'autorisation de substitution qui etait mise en place 
par la classe Personne. Si nous essayons de substituer cette methode dans une classe chef qui herite de saiarie nous 
obtenons le message suivant : 

Pub l it Cue Ides Sub M* A^Jte.QL'r i ) 
End. Sub 

A I'inverse, nous pouvons exiger qu'une classe heritee substitue une methode definie dans une classe de base. Cette 
methode doit etre marquee avec le mot cleMustOverride. Pour une telle methode, il ne doit pas y avoir 
d'implementation mais juste sa definition. 

Public MustOverride Function et at_civil ( ) As String 

Une telle methode est parfois appelee methode abstraite. Elle exige que la classe dans laquelle elle est definie soit 
egalement marquee comme abstraite avec le mot cle Mustinherit. 



- 8- 



© ENI Editions - All rigths reserved 



'Fersonne' doit etre declare 'Mustlnherit'j car il contient des methodes declarees 'MustOverride'. 

□ Public Class Personne 

Private leNom As String 
Private lePrenom As String 
Private laDate_naiss As Date 

Masquage de methode 

Lorsque des elements d'un programme partagent le meme nom, Tun d'eux peut masquer I'autre. Dans un tel cas, 
I'element masque n'est plus accessible et le compilateur utilise a la place I'element le masquant. Le masquage peut se 
faire entre des elements de type different. Seul le nom de I'element est utilise pour assurer le masquage. Lors du 
masquage, il convient d'utiliser le mot cleshadows, devant le nom du membre assurant le masquage. Nous pouvons par 
exemple masquer la methode Af fichage dans une classe derivee de la classe Personne. 

Public Shadows Sub Affichage() 
End Sub 

Pour cette classe, il n'y a dorenavant qu'un seul element appele Affichage. Tout ce qui peut exister comme element, 
dans la ou les classes de base de cette classe, et qui est nomme Affichage est masque et inaccessible. 



CS Cette technique est a utiliser avec precaution car en fonction de ('emplacement ou se trouve une instruction, le 
^ meme nom peut faire reference a des elements de nature differente. 



Methode partielle 

Les methodes partielles sont utilisees pour nous permettre de personnaliser le code d'une classe partielle generee 
par un outil de Visual Studio. Elles sont principalement utilisees pour fournir une notification de changement. L'outil 
genere uniquement le squelette de la methode et y fait appel lorsque la notification doit se produire. L'utilisateur de la 
classe peut eventuellement definir sa propre version de la methode et dans ce cas celle-ci sera appelee a la place de 
celle generee automatiquement. Voyons comment mettre cela en application avec la classe Personne. Nous devons 
tout d'abord definir la classe comme etant une classe partielle puis prevoir a I'interieur de la classe une methode 
partielle en respectant les regies suivantes : 

• la methode doit etre une procedure et non une fonction, 

• le corps de la methode doit etre vide, 

• la methode doit etre privee. 



Partial Public Class Personne 
Private leNom As String 
Private lePrenom As String 
Private laDate_naiss As Date 

Partial Private Sub nomChanged ( ) 
End Sub 

Public Property nom() As String 
Get 

Return leNom 
End Get 

Set (ByVal Value As String) 
leNom = Value 
nomChanged ( ) 

End Set 
End Property 



End Class 



II nous reste maintenant a personnaliser cette classe dans un autre fichier source et a tester le resultat. Pour cela, 
dans un module, ajoutons le code suivant : 
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Partial Class Personne 

Private Sub nomChanged ( ) 

Console . WriteLine ( "un nouveau nom est affecte") 

End Sub 
End Class 

Module Modulel 

Public Sub main () 

Dim p As Personne 
p = New Personne 
p. nom = "Dupont" 
Console . WriteLine (p. nom) 
Console . ReadLine ( ) 
End Sub 
End Module 



A I'execution, nous avons le resultat suivant : 

un nouveau nom est affecte 
Dupont 

C'est bien le code de notre version de la methode nomChanged qui vient d'etre executer et pourtant nous n'avons pas 
touche le code original de la classe Personne. 

Methode d'extension 

Les methodes d'extension permettent I'ajout de fonctionnalites a une classe deja definie sans bien sur avoir a modifier 
le code de cette classe. El les sont simplement ecrites dans des modules et sont ensuite appelees exactement de la 
meme fagon que les methodes disponibles directement dans la classe. II y a cependant quelques regies a respecter : 

• elles peuvent etre de type procedure ou fonction mais pas de type propriete. 

• Elles doivent etre marquees avec I'attribut <Extension()>. 

• Le type du premier parametre de la methode determine le type etendu par cette methode. 

• Au moment de I'execution ce premier parametre represente I'instance de la classe sur laquelle la methode est 
appelee. 

Dans I'exemple ci-dessous, nous ajoutons une methode a la classe Personne. 



Module Modulel 

<Extension ( ) > Public Sub af f ichage (ByVal p As Personne) 
Console . WriteLine ( "nom : {0}", p. nom) 
Console . WriteLine ( "prenom : {0}" A p.prenom) 
Console . WriteLine ( "date de naissance : {0}", p . date_naiss ) 

End Sub 

Public Sub main () 

Dim p As Personne 

p = New Personne 

p. nom = "dupont" 

p.prenom = "paul" 

p.date_naiss = #6/7/1955# 

p . aff ichage ( ) 

Console . ReadLine ( ) 
End Sub 
End Module 



Les methodes d'extension peuvent egalement etre definies pour les types de base du Framework comme par exemple 
la classe String. Le code suivant ajoute a la classe String une methode permettant de convertir le premier caractere 
d'une chaine en majuscule. 



<Extension ( ) > Public Function FirstToUpper (ByVal s As String) As String 
If IsNothing(s) OrElse s. Length = 0 Then 

Return s 
Elself s . Length = 1 Then 
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Return s.ToUpper 

Else 

Return s . Substring ( 0 , l).ToUpper & s . Substring ( 1 , s. Length - 1) 
End If 
End Function 



Si nous utilisons ensuite une variable de type String, notre nouvelle methode devient disponible et est meme 
proposee par IntelliSense. 

Dim s As String 

s = "bonjour" 

Cons ole. UuiteLine (s.f 

^ 14 of 18 t WriteLine (value As String) 
value: The value to write. 



% First 

% FirstOrDefault 




LB Firstf oUpper 


<Extension> Public Function FirstToUpperQ As String 


Format 





A noter I'icone differente utilisee pour differencier une methode d'extension d'une methode normale de la classe. 

e. Constructeurs et destructeurs 

Les constructeurs sont des methodes particulieres d'une classe par differents aspects. Le constructeur s'appelle 
toujours New dans une classe. II n'est jamais appele explicitement dans le code mais de maniere implicite, a la creation 
d'une instance de classe. Comme pour une methode classique, un constructeur peut attendre des parametres. Le 
constructeur d'une classe qui n'attend pas de parametre est designe comme le constructeur par defaut de la classe. 
Le role du constructeur est principalement ['initialisation des champs d'une instance de classe. Les constructeurs 
peuvent egalement etre surcharges mais, dans ce cas, I'utilisation du mot cle overloads est interdite. 

Ajoutons a la classe Personne des constructeurs. 



Public Sub New() 

leNom = "" 
lePrenom = "" 
leMotDePasse = "" 
End Sub 

Public Sub New(ByVal nom As String, ByVal prenom As String, ByVal pwd As String) 

leNom = nom 

lePrenom = prenom 

leMotDePasse = pwd 
End Sub 



Lorsque nous creons une classe derivee, elle peut aussi disposer de ses propres constructeurs. Si nous ajoutons dans 
la classe derivee un constructeur par defaut, nous devons suivre quelques regies : 

• Si dans la classe de base il existe un constructeur surcharge, nous devons appeler explicitement, dans le 
constructeur par defaut de la classe derivee, le constructeur par defaut de la classe de base. 

• S'il n'existe, dans la classe de base, que le constructeur par defaut, son appel est implicite dans le 
constructeur par defaut de la classe derivee. 

• Dans notre cas, le constructeur par defaut de la classe saiarie devrait avoir la forme suivante. 

Public Sub New() 

MyBase . New ( ) 

leSalai re = 0 
End Sub 

La ligne MyBase. new () provoque I'appel implicite du constructeur de la classe Personne. Cette ligne doit obligatoirement 
etre la premiere du constructeur. Les destructeurs sont d'autres methodes particulieres d'une classe. Comme les 
constructeurs, ils sont appeles implicitement mais uniquement lors de la destruction d'une instance de classe. La 
signature du destructeur est imposee. Cette methode doit etre protected, se nommer finalize et ne prendre aucun 
parametre. Du fait de cette signature imposee, il ne peut y avoir qu'un seul destructeur pour une classe, done pas de 
surcharge possible pour les destructeurs. 
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La declaration d'un destructeur est done la suivante : 



Protected Overrides Sub finalize () 



End Sub 



Le mot cle overrides est obligatoire car le destructeur se substitue au destructeur herite de la classe object. Le code 
present dans le destructeur doit permettre la liberation des ressources utilisees par la classe. On peut, par exemple, y 
trouver du code fermant un fichier ouvert par la classe ou la fermeture d'une connexion vers un serveur de base de 
donnees. 



C\ Nous verrons en detail dans le paragraphe "Destruction d'une instance", les circonstances dans lesquelles est 
^appele le destructeur. 



f. Membres partages 



Les membres partages sont des champs, proprietes ou methodes qui sont accessibles par toutes les instances d'une 
classe. On parle egalement, dans certains langages, de membres statiques. 

lis sont tres utiles lorsque vous avez a gerer, dans une classe, des informations qui ne sont pas specifiques a une 
instance de classe mais a la classe elle-meme. Par opposition aux membres d'instance, pour lesquels il existe un 
exemplaire par instance de la classe, les membres partages existent en un exemplaire unique. La modification de la 
valeur d'un membre d'instance ne modifie la valeur que pour cette instance de classe alors que la modification de la 
valeur d'un membre partage modifie la valeur pour toutes les instances de la classe. Les membres partages sont 
assimilables a des variables globales, dans une application. lis sont utilisables dans le code en y faisant reference par 
le nom de la classe ou grace a une instance de la classe. 

A noter que dans ce cas le compilateur ne trouve pas cette demarche logique et provoque un avertissement sur la 
ligne de code correspondante. II est done preferable de toujours utiliser le nom de la classe pour acceder a un membre 
partage. 

Les methodes partagees suivent les memes regies et peuvent servir a la creation de bibliotheques de fonctions. 
L'exemple classique est la classe Math dans laquelle de nombreuses fonctions partagees sont definies. Les methodes 
partagees possedent cependant une limitation car elles ne peuvent utiliser que des variables locales ou d'autres 
membres partages de la classe. Elles ne doivent jamais utiliser des membres d'instance d'une classe, car il se peut 
que la methode soit utilisee sans qu'il existe une instance de la classe. Le compilateur verifiera ce genre d'erreurs. 



Fun lie Shared r-Jiic l i oil ciUeu l_ifriF oca LI A* D^ciinAl 

He-turn ^cSaii&i riF r D.33 
End TvEtat. 
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Les membres partages doivent etre declares avec le mot cle shared. Vous pouvez egalement, comme pour n'importe 
quel autre membre d'une classe, specifier une visibilite. Par contre, une variable locale a une procedure ou fonction ne 
peut pas etre partagee. 



2. Utilisation d'une classe 



L'utilisation d'une classe, dans une application, passe par deux etapes. 



• La declaration d'une variable permettant I'acces a I'objet. 



• La creation de I'objet. 



Dans certains cas, ces deux etapes peuvent etre omises, Visual Basic les effectuant lui- meme. On parle alors d'objets 
intrinseques. C'est le cas, par exemple, pour les objets de nom My. 



a. Creation d'une instance 



Les variables objet sont des variables de type reference. Elles different des variables classiques par le fait que la 
variable ne contient pas directement les donnees mais une reference sur I'emplacement dans la memoire de la 
machine ou se trouvent les informations. Comme pour toutes les variables, elles doivent etre declarees avant leur 
utilisation. La declaration s'effectue de maniere identique a celle d'une variable classique (Integer ou autre). 



Dim p as Personne 
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Apres cette etape, la variable existe mais ne reference pas d'emplacement valide. El le contient la valeur Nothing. 

La deuxieme etape consiste reellement a creer I'instance de la classe. Le mot cle New est utilise a cet effet. II attend 
comme parametre le nom de la classe dont il est charge de creer une instance. L'operateur New fait une demande au 
systeme pour obtenir la memoire necessaire au stockage de I'instance de la classe, puis initialise la variable avec cette 
adresse memoire. Le constructeur de la classe est ensuite appele pour initialiser la nouvelle instance creee. 



p = New Personne 



Les deux operations peuvent etre combinees en une seule ligne. 



Dim p as New Personne 



Le constructeur par defaut est appele, dans ce cas. Pour utiliser un autre constructeur, vous devez specifier une liste 
de parametres et en fonction du nombre et du type des parametres, l'operateur New appelle le constructeur 
correspondant. 



Dim p as New Personne ("Dupond", "Paul", #12/24/1953#) 



b. Initialisation d'une instance 

Apres avoir cree une instance de classe, vous pouvez initialiser les membres de celle-ci par I'intermediaire des 
proprietes de classe. II est possible de combiner ces deux etapes en une seule. Pour cela, lors de la creation de 
I'instance, il faut fournir une liste de proprietes et de valeurs a affecter a ces proprietes. Voici ci-dessous la syntaxe 
exacte a utiliser : 



Dim p As Personne 

p = New Personne With {.nom = "dupont", .prenom = "paul"} 



II n'y a pas de limitation sur le nombre de proprietes initialisers ni sur I'ordre d'apparition des proprietes dans la liste 
d'initialisation. Cette unique ligne de code est I'equivalent de la syntaxe moins condensee et plus traditionnelle 
suivante : 



Dim p As Personne 
p = New Personne 
With p 

.nom = "Dupont" 
.prenom = "Paul" 
End With 



c. Destruction d'une instance 

La destruction d'une instance de classe est automatique dans une application. Le Common Language Runtime 
surveille a intervalles reguliers que toutes les instances de classes, creees dans I'application, sont encore 
accessibles ; c'est-a-dire qu'il existe encore dans I'application une variable ou une propriete permettant I'acces a cette 
instance. Si aucun moyen d'acceder a cette instance n'est trouve, I'objet est alors marque comme etant orphelin. 
Lorsque les reserves memoire de I'application deviennent trop faibles, le Garbage Collector intervient et elimine les 
objets orphelins. C'est lors de cette elimination que les destructeurs de chacun des objets sont appeles. II n'y a aucun 
moyen de precipiter les choses en demandant I'elimination immediate de la memoire d'une instance particuliere de 
classe. Cette situation est parfois problematique lorsque I'objet utilise une ressource externe comme, par exemple, 
une connexion vers un serveur de base de donnees. Si la fermeture de la connexion est prevue dans le destructeur de 
la classe, il peut se passer assez longtemps entre le moment ou I'objet devient inaccessible et celui ou le destructeur 
est appele. 

Pour pallier ce probleme, il est possible de mettre en ceuvre une autre solution. Le code charge de la liberation des 
ressources est place dans une autre methode et cette methode est appelee explicitement dans le code. En general, 
cette methode est nommee Dispose. Pour etre certain que les ressources sont bien liberees, vous pouvez egalement 
prevoir un appel a cette methode dans le destructeur de la classe. 

Un autre probleme peut alors survenir : si la methode a ete appelee explicitement dans le code de I'application, elle le 
sera a nouveau, de maniere implicite, lorsque le Garbage Collector entrera en action. Vous devez, done, faire en sorte 
que le code de cette methode Dispose puisse etre execute deux fois sans causer d'erreur. Vous pouvez egalement 
indiquer au Garbage Collector, qu'il ne doit pas executer le destructeur de cette instance de classe. Pour cela, dans la 
methode Dispose, vous devez le prevenir que le travail de "nettoyage" est deja realise, en appelant la 
methodesuppressFinaiize. Le code de la methode Dispose et du destructeur doit alors avoir la forme suivante : 



Public Sub Dispose () 

' inserer le code charge de la liberation des ressources 
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' Demande au Garbage Collector de ne pas appeler le destructeur 
GC . SuppressFinalize (Me) 
End Sub 

Protected Overrides Sub finalize () 

Dispose ( ) 
End Sub 



Une derniere solution consiste a demander au Garbage Collector d'entrer en action immediatement en appelant la 
methode collect. 



GC. Collect () 



Cette solution n'est cependant pas recommandee, car elle consomme enormement de ressources sur le systeme pour 
parfois ne recuperer que quelques centaines d'octets en memoire. 



d. Liaison tardive, liaison precoce 

Le compilateur Visual Basic effectue une operation appelee liaison lorsqu'un objet est affecte a une variable. Cette 
liaison est dite precoce lorsque la variable est creee a partir d'une classe specifique. Cette fonctionnalite permet au 
compilateur d'effectuer des optimisations sur le code genere. L'affection d'un objet peut aussi se realiser a une 
variable de type Object. Ce type de variable est capable de referencer n'importe quel autre type de classe. Dans ce 
cas, la liaison est dite tardive car le type reel de I'objet ne sera decouvert qu'a I'execution de I'application. Cette 
technique est a eviter car elle genere un code moins efficace et surtout elle ne permet pas de beneficier de la 
completion automatique du code dans I'editeur ni de I'aide dynamique. En effet, dans ce cas Visual Basic ne peut pas 
determiner le type reel de I'objet manipule. 

Cependant, certaines fonctions retournent un type Object, mais pour pouvoir le manipuler, il convient de prendre 
quelques precautions. La premiere solution consiste a n'utiliser, avec la valeur renvoyee par la fonction, que des 
membres de la classe Object. Cette solution est relativement limitative quant aux fonctionnalites disponibles. 

La deuxieme solution consiste a affecter, a une variable d'un type particulier, la valeur renvoyee par la fonction. Cette 
solution permet d'utiliser toutes les fonctionnalites de I'objet retourne par la fonction. Cependant, il faut etre certain 
que I'objet retourne est bien une instance de la classe que Ton souhaite manipuler. D'ailleurs, le compilateur se 
chargera de nous le rappeler. 

Dim il I s As Fersonne 

Option Strict On interdit les conversions implicites de 'Object' en 'Console Application! .Fersonne'. 

fils = p . cretEnf ant ( 0) 



Nous devons done nous assurer du type de I'objet retourne et demander explicitement le transtypage. Nous pouvons 
obtenir le nom du type de I'objet et effectuer une comparaison de chaine de caracteres. 



Dim fils As Personne 
If TypeName (p . getEnf ant ( 0 )). Equals ( "Personne " ) Then 

fils = CType (p . getEnf ant ( 0 ) , Personne) 
End If 



Cette solution fonctionne mais comporte le risque de mal orthographier le nom de la classe lors de la comparaison. 
L'operateurTypeOf ... is ... est plus adapte a cette situation. 



'Dim fils As Personne 
If TypeOf p . getEnf ant ( 0 ) Is Personne Then 

fils = CType (p . getEnf ant ( 0 ) , Personne) 

End If 



A noter que le transtypage ne change pas le type de I'objet en memoire mais permet simplement de le voir d'une 
autre fagon. Si par exemple nous avons en memoire une instance de la classe saiarie, le transtypage nous permet de 
le voir comme un Object, une Personne ou un Saiarie mais cela restera toujours une instance de la classe saiarie. 



3. Heritage 

L'heritage est une puissante fonctionnalite d'un langage oriente objet mais peut parfois etre utilisee mal a propos. Deux 
types de relations peuvent etre utilises entre deux classes. Nous pouvons avoir la relation "est une sorte de" et la 
relation "concerne un". La relation d'heritage doit etre envisagee lorsque la relation "est une sorte de" peut etre 
appliquee entre deux classes. Prenons un exemple avec trois classes : Personne, Client, Commande. 
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Essayons les relations pour chacune des classes. 

1. Une commande est une sorte de client 

2. Une commande est une sorte de personne 

3. Un client est une sorte de commande 

4. Un client est une sorte de personne 

5. Une personne est une sorte de client 

6. Une personne est une sorte de commande 

Parmi toutes ces tentatives, il n'y en a qu'une seule qui nous semble logique : un client est une sorte de personne. 
Nous pouvons done envisager une relation d'heritage entre ces deux classes. La mise en ceuvre est tres simple au 
niveau du code puisque, dans la declaration de la classe, il suffit juste de specifier le mot cle inherits suivi du nom de la 
classe dont on souhaite heriter. Visual Basic n'acceptant pas I'heritage multiple, vous ne pouvez specifier qu'un seul 
nom de classe de base. 



Public Class Client 

Inherits Personne 
Private leCode As Integer 
Public Property code() As Integer 
Get 

Return leCode 
End Get 

Set (ByVal value As Integer) 

leCode = value 
End Set 
End Property 
End Class 



La classe peut ensuite etre utilisee et propose toutes les fonctionalites definies dans la classe client plus celles 
heritees de la classe Personne. 



Dim c As Client 

c = New Client ( "dupond", 



"paul", "secret", 12345) 



c . 



=%! af f ichage 
i5* age 

^ AjoutComrmande 
^ Calcul_age 
gj 1 code 
=% compareTo 
i§* date_naiss 
z ^ Dispose 
If 8 enfant 
getEnfant 



Commun 



Tous 



a. MyBase et MyClass 

II est legitime de vouloir ensuite modifier le fonctionnement de certaines methodes heritees pour les adapter a la 
classe client. Par exemple, la methode Affichage peut etre substitute pour tenir compte des nouveaux champs 
disponibles dans la classe. 



Public Overrides Sub affichage () 

Console .Write ("Mr {0} {1} ne le {2}", nom, prenom, date_naiss) 

Console . Write ( " code Client : {0}", leCode) 
End Sub 



Ce code fonctionne tres bien mais ne respecte pas Tun des principes de la programmation objet qui veut que Ton 
reutilise au maximum ce qui existe deja. Dans notre cas, nous avons deja une portion de code chargee de I'affichage 
du nom, du prenom et de la date de naissance d'une personne. Pourquoi ne pas la reutiliser dans la methode 

affichage de la classe client puisque Ton en herite ? 

Notre methode devient done : 
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Public Overrides Sub affichage() 
af f ichage ( ) 

Console . Write ( " code Client : {0}", leCode) 
End Sub 



Essayons de I'utiliser : 



Dim c As Client 
c = New Client 
c . nom = "dupond" 
c.prenom = "paul" 
c.date_naiss = #12/23/1954# 
c.code = 12345 
c . aff ichage ( ) 

Helas, le resultat n'est pas a la hauteur de nos esperances ! 
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Que s'est-il passe lors de I'execution ? 

Lors de I'appel de la methode affichage, la premiere ligne de code a consiste a appeler la methode affichage de la 
classe de base. En fait, Visual Basic recherche la premiere methode affichage qu'il trouve et appelle ainsi en boucle la 
methode affichage de la classe client d'ou I'erreur de debordement de pile que nous obtenons. 



Pour eviter ce genre de probleme, nous devons lui preciser que la methode affichage a appeler se trouve dans la 
classe de base. Pour cela, nous devons utiliser le mot cle MyBase pour qualifier la methode affichage appelee. 



Public Overrides Sub affichage () 
MyBase . affichage ( ) 

Console . Write ( " code Client : {0}", leCode) 
End Sub 



Apres cette modification, tout rentre dans I'ordre et notre code affiche. 



Mr DUPOND paul ne le 23/12/1954 00:00:00 code Client : 12345 



La meme syntaxe peut etre utilisee pour appeler le constructeur de la classe de base. 



L'appel au constructeur de la classe de base doit etre la premiere ligne d'un constructeur. 



Nous pouvons done creer un constructeur pour la classe client qui utilise le constructeur de la classe Personne, 

Public Sub New(ByVal nom As String, ByVal prenom As String, 
ByVal pwd As String, ByVal leCode As Integer) 
MyBase . New (nom, prenom, pwd) 
leCode = leCode 
End Sub 

Verifions que le nouveau constructeur fonctionne : 

Dim c As Client 

c = New Client ("dupond", "paul", "secret", 12345) 
c.date_naiss = #12/23/1967# 
c . affichage ( ) 
Console . ReadLine ( ) 



© ENI Editions - All rigths reserved 



Nous affiche : 



Mr dupond paul ne le 23/12/1967 00:00:00 code Client : 0 



Les informations ont bien ete prises en compte, sauf le code client qui reste a zero. Regardons de plus pres le code du 
constructeur. Nous decouvrons qu'un parametre du constructeur porte le meme nom qu'un champ de la classe. 
Lorsque nous ecrivons la ligne codecii=codecii le compilateur considere que nous souhaitons affecter au parametre 
codecii la valeur contenue dans le parametre codecii. Rien d'illegal, mais ce n'est absolument pas ce que nous 
souhaitons faire. Nous devons indiquer que I'affectation doit se faire a la variable membre de la classe. Pour cela, nous 
devons la prefixer avec le mot cleMyciass. 



Le constructeur devient done : 


Public Sub New(ByVal nom As 


String, ByVal prenom As String, ByVal pwd As 


String, ByVal leCode As Integer) 




MyBase . New (nom, prenom, 


pwd) 


MyClass . leCode = leCode 




End Sub 





Notre code de test nous affiche alors les bonnes informations : 



Mr dupond paul ne le 23/12/1967 00:00:00 code Client : 12345 



b. Classes abstraites 



Les classes abstraites sont des classes qui peuvent uniquement etre utilisees comme classe de base dans une 
relation d'heritage. II est impossible de creer une instance d'une classe abstraite. El les servent essentiellement de 
modele pour la creation de classe, devant toutes avoir un minimum de caracteristiques identiques. Elles peuvent 
contenir des champs, des proprietes et des methodes comme une classe ordinaire. Cette technique facilite revolution 
de l'application, car si une nouvelle fonctionnalite doit etre disponible dans les classes derivees, il suffit d'ajouter cette 
fonctionnalite dans la classe de base. II est egalement possible de ne pas fournir d'implementation pour une classe 
abstraite et ainsi laisser a I'utilisateur de la classe le soin de creer ['implementation dans la classe derivee. 

Pour qu'une classe devienne une classe abstraite, vous devez utiliser le mot cleMustinherit dans la declaration de la 
classe. 



Public Mustlnherit Class Modele 



End Class 



c. Classes finales 



Les classes finales sont des classes ordinaires qui peuvent etre instanciees mais ne sont pas utilisables comme classe 
de base dans une relation d'heritage. C'est le cas de plusieurs classes du Framework.NET, comme par exemple la 

Classe String. 



□ Public Class Chains 
Inherits String 

jWvWvW\W 



'Chaine' ne peut pas heriter de class "String^ car 'String' est declare comme 'Notlnheritable', 



L End Class 



Une classe finale doit etre definie avec le mot cleNotinheritabie. 



Public Notlnheritable Class Client 

Inherits Personne 
End Class 



d. Classes anonymes 

Visual Basic nous fournit la possibility de creer des objets sans ecrire de code pour la definition de la classe 
correspondante. C'est le compilateur qui va prendre en charge la generation de la classe. Evidemment il va falloir 
I'aider un petit peu et lui fournir quelques informations pour qu'il puisse generer la classe et en creer une instance. La 
declaration d'une instance de classe anonyme se base principalement sur le principe vu au paragraphe b concernant 
I'initialisation d'une instance. Lors de la declaration d'une telle instance nous devons fournir la liste des proprietes 
souhaitees ainsi que leurs valeurs. Voyons done un premier exemple. 
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Dim produit = New With {.Norn = "biscuit", .Prix = 1.56} 



La variable produit fait reference a une instance de classe contenant deux proprietes Nom et Prix. Ces deux proprietes 
sont initialisers respectivement avec les valeurs "biscuit" et 1.56. Pour verifier cela, demandons encore une fois a 
IntelliSense son avis. 

produit . 





E * Equals 




V GetHashCode 


=^ GetType 




jlf Norm 




jf 1 prix 




=^ ReferenceEquals 


^ To5tring 




Commun 


Tous 



II nous indique bien que pour notre variable produit, les deux proprietes sont disponibles. Par contre il nous propose 
egalement plusieurs methodes. D'ou viennent-elles ? En fait, les classes anonymes respectent les memes regies que 
toutes les autres classes car elles heritent par defaut de la classe object. Les methodes proposees sont done celles 
heritees de la classe object. Ce sont d'ailleurs les seules qu'il pourra y avoir dans une classe anonyme car pour ce 
genre de classe il est impossible de definir autre chose que des proprietes, done pas de methodes ni d'evenements. 
Vous devez certainement vous poser la question : Comment le compilateur fait-il pour s'y retrouver s'il existe plusieurs 
instances de classe anonyme ? En fait, ces classes sont anonymes pour nous mais pas pour lui car pendant la 
compilation il va generer automatiquement un nom pour ces classes. Pour le verifier, demandons a la variable produit 
de nous indiquer son type. 



Console . WriteLine (produit . GetType . Name ) 



Nous obtenons la reponse suivante a I'execution. 



VB$ Anonymous Type_0 v 2 



II existe done bien un nom pour ces classes. Par contre, ce nom n'est connu qu'apres la compilation done hors de 
question de I'utiliser dans notre code. Ce serait d'ailleurs une tres mauvaise idee car il est susceptible de changer a 
chaque compilation de I'application. 

En fait, le compilateur ne cree pas une nouvelle classe pour chaque instanciation car il verifie, avant de creer une 
nouvelle classe, s'il n'a pas deja traite une definition identique. Pour cela, il se base sur les elements suivants : 

• le nombre de proprietes ; 

• le nom des proprietes ; 

• le type des proprietes ; 

• I'ordre des proprietes dans la definition. 

Si tous ces elements sont identiques alors il reutilisera la classe qu'il a deja generee pour creer I'instance. Verifions 
cela : 



Dim produitl = New With {.Nom = "biscuit", .prix = 1.56} 
Dim produit2 = New With {.Nom = "confiture", .prix = 2.24} 

Console . WriteLine (" la classe de produitl est :{0}", produitl . GetType .Name) 
Console . WriteLine (" la classe de produit2 est :{0}", produit2 . GetType . Name) 



Nous obtenons le resultat suivant : 

la classe de produitl est : VB $ Anonymou s Type_0 s 2 
la classe de produit2 est : VB $ Anonymou s Type_0 s 2 

Tout est normal car les deux variables ont rigoureusement la meme definition. Si nous faisons une petite modification 
en inversant simplement I'ordre des proprietes : 



Dim produitl = New With {.Nom = "biscuit", .prix = 1.56} 
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Dim produit2 = New With { .prix = 2.24, .Norn = "confiture"} 

Console . WriteLine (" la classe de produitl est :{0}", produitl . GetType .Name) 
Console . WriteLine (" la classe de produit2 est :{0}", produit2 . GetType .Name) 



Nous obtenons cette fois le resultat suivant : 



la classe de produitl est : VB$AnonymousType_0 s 2 
la classe de produit2 est : VB $ Anonymou s Type_l s 2 

Le compilateur a cette fois genere deux classes puisque les definitions sont differentes. 

Lors de la declaration d'une instance de classe anonyme, certaines proprietes peuvent etre definies comme des 
proprietes cles de I'instance. Ces proprietes ont un role important pour la comparaison d'instances de classes 
anonymes. Elles sont identifies grace au mot cle 'key' place devant le nom de la propriete. Les proprietes declarees 
ainsi sont en lecture seule. 

Dim produit = New With {Key .code = 12854, .Norn = "biscuit", .prix = 1.56} 
produit . code = 98654 



Property 'code' is 'Readonly 1 , 



Pour comparer deux instances de classe anonyme, nous devons utiliser la methode Equals. Cette methode est heritee 
de la classe object mais substitute par le compilateur au moment de la generation de la classe anonyme. Cette 
methode indiquera que deux instances sont identiques si toutes les conditions suivantes sont respectees. 

• Les deux objets doivent etre declares dans le meme assembly. 

• Les proprietes doivent avoir le meme nom, le meme type et etre declarees dans le meme ordre. 

• II doit y avoir au moins une propriete declaree avec le mot cle Key. 

• Les memes proprietes doivent etre declarees avec le mot cle Key dans les deux instances. 

• Les valeurs des proprietes declarees avec le mot cle Key doivent etre identiques dans les deux instances. 

• Une instance de classe anonyme qui n'a pas de propriete declaree avec le mot cle Key ne peut etre egale qu'a 
elle-meme. 

Verifions ces regies en comparant differents produits. 



Dim produitl = New With {Key .code = 12854, .Nom = "biscuit", .prix = 1.56} 
Dim produit2 = New With {Key .code = 12854, .Nom = "biscuit", .prix = 1.56} 

Console . WriteLine (produitl . Equals (produit 2 ) ) 



Ce code nous affiche True car les deux instances respectent I'ensemble des regies d'egalite citees ci-dessus. 
Essayons d'enfreindre une des regies en oubliant par exemple le mot cle Key. 



Dim produitl = New With {.code = 12854, .Nom = "biscuit", .prix = 1.56} 
Dim produit2 = New With {Key .code = 12854, .Nom = "biscuit", .prix = 1.56} 

Console . WriteLine (produitl . Equals (produit 2 ) ) 



Le resultat est sans appel : les deux instances ne sont plus identiques, 



4. Interfaces 

Nous avons vu que Ton pouvait obliger une classe a implementer une methode en la declarant avec le mot cle 
Mustoverride. Si nous avons plusieurs classes qui doivent implementer la meme methode, il est plus pratique d'utiliser 
les interfaces. Comme les classes, les interfaces permettent de definir un ensemble de proprietes, methodes, 
evenements. Cependant, elles ne contiennent aucun code. L'implementation doit s'effectuer au niveau de la classe elle- 
meme. L'interface constitue un contrat que vous signez. En declarant que votre classe implemente une interface, vous 
vous engagez a fournir, dans votre classe, tout ce qui est defini dans l'interface. II convient d'etre prudent si vous 
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utilisez les interfaces et de ne jamais modifier une interface deja utilisee sinon vous courez le risque de devoir 
reprendre le code de toutes les classes qui implementent cette interface. 

Pour pouvoir utiliser une interface, il convient de la definir au prealable. La declaration est similaire a la declaration d'une 

Classe maiS en Utilisant les mots Cles Interface et End Interface. 

Vous pouvez eventuellement utiliser le mot cle inherits pour introduire une relation d'heritage dans votre interface. Les 
seules instructions qui doivent apparaitre dans une interface sont des declarations de proprietes avec Property, de 
procedures et fonctions avec Sub et Function, ou d'evenements avec Event. II ne doit y avoir aucun code dans les 
procedures et fonctions meme pas de End Sub ni de End Function. Creons done notre premiere interface. 



Public Interface Comparable 

Function compare (ByVal ol As Object) As Integer 
End Interface 



Cette interface nous obligera a creer dans les classes qui I'implementeront une fonction nous permettant de comparer 
rinstance courante d'un objet et I'objet qui sera passe comme parametre. La fonction retournera une valeur egale a 1 si 
I'objet passe comme parametre est superieur a I'instance courante, une valeur egale a zero si les deux objets sont 
egaux, une valeur egale a -1 si 1'instance courante est superieure a I'objet passe comme parametre. 

Mais quels criteres allons-nous utiliser pour dire qu'un objet est superieur a un autre ? 

Dans la description de notre interface, ce n'est pas notre souci ! Nous laissons le soin a la personne qui va definir une 
classe utilisant notre I'interface de definir quels sont les criteres de comparaison. Par exemple, dans notre classe 
client, nous pourrions implementer I'interface comparable de la maniere suivante en choisissant de comparer deux 
clients sur le nom : 



Public Class Client 

Inherits Personne 
Implements Comparable 



Public Function compare (ByVal ol As Object) As Integer 
Implements Comparable . compare 
Select Case nom 

Case Is < ol.nom 

Return -1 
Case ol.nom 

Return 0 
Case Else 

Return 1 
End Select 
End Function 



Deux modifications sont visibles dans la classe : 

• le fait qu'elle implemente I'interface comparable. 

• L'implementation reelle de la fonction compare avec I'indication de I'interface et de la methode qu'elle 
implemente. 

Dans cette fonction, la comparaison se fera sur le nom des clients. Tres bien mais ga sert a quoi ? 
II arrive frequemment que Ton ait besoin de trier des elements dans une application. Deux solutions : 

• creer une fonction de tri specifique pour chaque type d'element que Ton veut trier. 

• Creer une routine de tri generique et faire en sorte que les elements que Ton utilise soient triables par cette 
routine. 

Les interfaces vont nous aider a mettre en ceuvre cette deuxieme solution. Pour pouvoir trier des elements, et quelle 
que soit la methode utilisee pour le tri, nous aurons besoin de comparer deux elements. Pour etre certain que notre 
routine de tri fonctionnera sans probleme, il faut s'assurer que les elements qu'elle devra trier auront la possibility 
d'etre compares les uns aux autres. Nous ne pouvons garantir cela que si tous nos elements implementent I'interface 
comparable. Nous allons done I'exiger dans la declaration de notre routine de tri. 



Public Sub tri (ByVal tablo As Comparable () ) 
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Definie ainsi, notre procedure sera capable de trier toutes sortes de tableaux pourvu que leurs elements implementent 
l'interface comparable. Nous pouvons done ecrire le code suivant et utiliser la methode compare sans risque. 



Public Sub tri (ByVal tablo As Comparable () ) 
Dim i As Integer 
Dim j As Integer 
Dim o As Object 

For i = 0 To UBound (tablo) - 1 

For j = i + 1 To UBound (tablo) 

If (tablo ( j ). compare (tablo (i )) ) < 0 Then 
o = tablo ( j ) 
tablo (j) = tablo (i) 
tablo (i ) = o 
End If 

Next 

Next 
End Sub 



Puis pour tester notre procedure, creons quelques clients, essayons de les trier et puis d'afficher leurs noms. 



Dim tab (4) As Client 



tab (0) 


= New 


Client ( 


"toto2", 


"prenom2 ", 


"secret " , 


2) 


tab (1) 


= New 


Client ( 


"totol", 


"prenoml ", 


"secret " , 


1) 


tab (2) 


= New 


Client ( 


"toto5", 


"prenom5 ", 


"secret " , 


5) 


tab (3) 


= New 


Client ( 


"toto3", 


"prenom3 ", 


"secret " , 


3) 


tab (4) 


= New 


Client ( 


"toto4", 


"prenom4 ", 


"secret " , 


4) 



tri (tab) 

Dim i As Integer 
For i = 0 To 4 

Console . WriteLine (tab ( i ) .nom) 

Next 



Nous obtenons le resultat suivant : 



Mr 


totol 


prenoml 


ne 


le 


01/01/0001 


00:00:00 


code 


Client 


1 


Mr 


toto2 


prenom2 


ne 


le 


01/01/0001 


00:00:00 


code 


Client 


2 


Mr 


toto3 


prenom3 


ne 


le 


01/01/0001 


00:00:00 


code 


Client 


3 


Mr 


toto4 


prenom4 


ne 


le 


01/01/0001 


00:00:00 


code 


Client 


4 


Mr 


toto5 


prenom5 


ne 


le 


01/01/0001 


00:00:00 


code 


Client 


5 



Nous avons bien la liste de nos clients triee par ordre alphabetique sur le nom. 

Essayons d'utiliser notre procedure de tri avec un tableau d'objets qui n'implementent pas l'interface comparable. 



Dim tab (4) As Voiture 
tab(0) = New Voiture ( "Fiat " , "500") 
tab(l) = New Voiture ( "Peugeot ", "205" ) 
tab (2) = New Voiture ( "Opel " , "Corsa") 
tab (3) = New Voiture ( "Renault " , "Laguna") 
tab (4) = New Voiture (Lancia" , "Delta") 
tri (tab) 

Dim i As Integer 
For i = 0 To 4 

Console .WriteLine (tab (i) .nom) 

Next 



Pas de probleme a la compilation, par contre les choses se compliquent pendant I'execution. 
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Dim tobVoiture (4) As Voiture 
tam/oituretD) - New Vo Ituee ( "Fi&t "500") 
taSVoitureM) - Hew Vo 1 cue e ( "Peugeot", 
ca&VoixuretE) ™ New Voltuee £ "Opel", "Corsa") 
taJsVoltm:el3 3 = New ¥o itute ("Renault", "kagu>ia' r ) 
tahUolture [4) = Meu Vq ltute ( ""Lasic ia' r , "Delta") 

inuiiiiiuiiinuuiiiuftjiiduuii ii. 

crUtatiyQiture): 



i. ... . 



rum ii ipihi ii iriPi ii ir 



£k L'cKccptiDri 1 nvalidTCastEKceptron n'a pas etc geree 



Impossible defFectuer in cast d"un objet de type , Cgf»oleA^^p^lcatlcrll.Vcl!;u^e[] , en type 
'System. ]Comparable[} ■ 

Lonseils de depannage : 



LU^rssij'S ~yucTL ^ jc^wS k 7^0^ n ^ Kite's^ ^ik T^lt^X r ; ;^tc*7i ti r ^ »jnf^fp^y^ i T s 

Assurez-vouE que le type source est coiwar tibfe eri type de- destlnatpjn , 
Obtenr une aide d'-erdre ggnfral pour cette eMcepBaft. 



Rechcrcher de I'aidc en lignc compJcrrYDntaro... 
Actftns : 

Afftcher Its details,. ■ 

Copier le detail de Perception dan* lervesse-papieirs 



Cette erreur intervient au moment de I'appel de la procedure de tri. Les elements du tableau que nous avons passe 
comme parametre n'implementent pas I'interface comparable et nous ne sommes pas certains qu'ils contiennent une 
fonction compare. A noter que, meme s'il existe une fonction compare correcte dans la classe voiture, il faut 
obligatoirement specifier que cette classe implemente I'interface comparable, pour que notre code puisse fonctionner. 



5. Les evenements 



Les methodes nous permettent de communiquer avec les objets qui composent une application mais les objets ont 
egalement la possibility de nous faire part de leurs reactions en generant des evenements. Ces evenements doivent 
ensuite etre pris en compte pour reagir a ce qui vient de se passer dans I'application. 

Les evenements sont tres largement utilises dans la conception de I'interface graphique d'une application car ils nous 
permettent d'avoir des informations sur les actions effectues par I'utilisateur de I'application. 



a. Declaration et declenchement d'evenements 

Voyons, tout d'abord, comment generer un evenement dans une classe. La premiere chose a faire est de declarer 
I'evenement dans la classe. Cette declaration s'effectue de la meme maniere que celle des variables internes a la 
classe. On utilise pour cela le mot cle event suivi du nom de I'evenement. Nous pouvons egalement, lors de la 
declaration, specifier des parametres qui fourniront des informations supplementaires sur I'evenement lui-meme ou sur 
I'etat de I'objet, au moment ou I'evenement se declenche. Nous pouvons, par exemple creer dans notre classe client 
un evenement qui se declenchera a chaque ajout d'une nouvelle commande. Comme information supplemental, 
notre evenement fournira le nombre de commandes apres I'ajout. 



Public Event NouvelleCommande (ByVal nbCommandes As integer) 



II nous reste maintenant a definir dans quelles conditions notre evenement sera declenche et bien sur a le declencher 
a ce moment-la. Pour notre classe client, le plus evident est de generer notre evenement au moment ou Ton execute 
la methode permettant d'ajouter une commande. Pour cela, nous allons creer la methode Ajoutcommande. Cette 
methode regoit comme parametre le numero de la commande a ajouter. La seule action de cette methode sera 
d'incrementer le nombre de commandes du client. 



Public Sub AjoutCommande (ByVal numero As Integer) 
nbCommandes = nbCommandes + 1 

End Sub 



Dans la methode Ajoutcommande, nous allons done declencher I'evenement avec I'instructionRaiseEvent suivie du nom 
de I'evenement declare au prealable dans la classe. Nous devons egalement fournir les eventuels parametres declares 
avec notre evenement. 



Public Sub AjoutCommande (ByVal numero As Integer) 
nbCommandes = nbCommandes + 1 
RaiseEvent NouvelleCommande (nbCommandes) 

End Sub 



Apres I'execution de I'instruction RaiseEvent, I'evenement sera transmis a tous les elements qui se seront declares 
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interesses par cet evenement. Si plusieurs elements sont interesses par I'evenement, Ms recevront les uns apres les 
autres la notification de I'evenement. 



C\ A noter toutefois qu'il n'est pas possible de predire I'ordre dans lequel les elements de notre application seront 
^ prevenus, ni de prevenir un nouvel element tant que le precedent n'aura pas fini de traiter I'evenement. 



b. Gerer les evenements 

Regardons maintenant comment recuperer les evenements dans notre application. Deux solutions sont possibles : 

• declarer une variable avec le mot cle withEvents et utiliser la clause Handles. 

• Ajouter manuellement un gestionnaire d'evenement. 



CS La deuxieme solution est plus souple car el le nous permettra d'ajouter ou de supprimer dynamiquement des 
^ gestionnaires d'evenement pendant le fonctionnement de notre application, mais elle necessite un peu plus de 
code que la premiere solution. 



Utilisation de la clause Handles 

Cette solution necessite une declaration de variable specifique. La declaration d'une variable pouvant referencer une 
instance de la classe client s'effectue de la maniere suivante. 



Dim WithEvents unClient As Client 



II convient maintenant de decider quel code sera execute lorsque cet evenement se produira. Une procedure liee a la 
reception de cet evenement doit etre creee. Pour cela, I'environnement de developpement nous facilite la tache. En 
haut de notre fenetre de code, nous avons deux listes disponibles. 

La premiere nous indique toutes les sources d'evenements disponibles et nous permet done de choisir d'ou proviendra 
notre evenement. 









X 


^Principal jj 


^(Declaration*) 




(General) 
'yl Principal 

























La seconde indique, pour la source d'evenement actuellement selectionnee, quels sont les evenements susceptibles 
d'etre declenches. 





^ unClicfift j*j 








J^DeclaraJblDrisJ 









Apres avoir fait notre choix dans les deux listes, I'environnement genere automatiquement le squelette de la 
procedure qui sera appelee par le declenchement de I'evenement. 



Private Sub unClient_NouvelleCommande (ByVal nbCommandes As Integer) Handles 
unClient . NouvelleCommande 
End Sub 



Cette methode est identique a celles que Ton a ecrit jusqu'a present, avec en plus le mot cle Handles suivi du nom de 
I'evenement qui sera traite par cette procedure. Par convention, le nom de la procedure est constitue par le nom de 
I'element suivi par le nom de I'evenement gere sur cet objet. Mais ceci reste une convention permettant de faciliter la 
lecture du code. La seule obligation est que la procedure respecte la signature definie dans I'evenement. 

Nous pouvons egalement ajouter plusieurs procedures qui seront appelees par le meme evenement, mais il faut dans 
ce cas reprendre le code manuellement et bien sur utiliser des noms differents pour les procedures. Cette methode 
manque de souplesse car il est impossible de choisir, pendant I'execution, quel gestionnaire d'evenement sera utilise. 
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II existe egalement une autre contrainte liee au fait que les variables declarees withEvents doivent obligatoirement 
etre declarees en dehors de toute procedure ou fonction. 

Ajout et suppression de gestionnaire d'evenement 

Pour eviter ces limitations, nous avons la possibilite d'ajouter manuellement des gestionnaires d'evenement. Dans ce 
cas, la variable doit etre declaree sans le mot cle withEvents. On utilise ensuite le mot cleAddHandier pour associer a 
un evenement une procedure pour le gerer. 



AddHandler unClient . NouvelleCommande, AddressOf unClient_NouvelleCommande 



Le premier parametre de AddHandler est I'evenement que Ton veut gerer puis on lui indique egalement, par 
I'intermediaire de AddressOf, I'emplacement ou se trouve la procedure qui sera executee pour gerer cet evenement. 
Nous pouvons ainsi decider, au cours du fonctionnement de I'application, qui gerera un evenement particulier. Par 
exemple, si nous avons une application qui fonctionne en mode console ou en mode Windows, nous aurons un mode 
d'affichage different. 



Dim mode As String = "console" 






Dim unClient As Client 






unClient = New Client ( "Dupond" , "paul "secret", 


12345) 




If mode = "graphique" Then 






AddHandler unClient . NouvelleCommande, AddressOf 


gestion_ 


_graph 


Else 






AddHandler unClient . NouvelleCommande, AddressOf 


gestion_ 


_texte 


End If 






unClient . AjoutCommande (10) 






Public Sub gest ion_graph (ByVal nbcmd As Integer) 






MsgBox ( "nombre de commandes " & nbcmd) 






End Sub 






Public Sub gestion_texte (ByVal nbcmd As Integer) 






Console .WriteLine ("nombre de commandes " & nbcmd) 






End Sub 







De la meme maniere, nous pouvons supprimer un gestionnaire d'evenement qui est deja reference, en 

UtilisantRemoveHandler. 



RemoveHandler unClient . NouvelleCommande, AddressOf gestion_graph 



Cette instruction ne supprime pas la procedure gestion_graph mais coupe simplement la liaison avec I'evenement 
lechef . augmentation_saiaire. Cette liaison pourra etre retablie par la suite en utilisant a nouveau AddHandler. 

Evenements et heritage 

Dernier point a eclaircir : comment vont se comporter les evenements lorsque notre classe sera sous-classee. 

Les evenements suivent les memes regies d'heritage que les proprietes et methodes. Un evenement declare dans 
une classe sera accessible dans toutes ces sous-classes. Une petite restriction existe quand meme, puisque le 
declenchement de I'evenement pourra n'avoir lieu que dans la classe dans laquelle il est declare. Pour contourner le 
probleme, il suffit de declarer une methode protected dans la classe et simplement faire declencher I'evenement par 
cette methode. Nous aurons ensuite la possibilite de declencher I'evenement dans n'importe quelle autre sous-classe, 
non pas en utilisant directement le RaiseEvent, mais en utilisant la methode protegee qui le fera pour nous. 

Par exemple, pour pouvoir declencher I'evenement dans une sous-classe de client nous pourrions ecrire le code 
suivant : 

Dans la classe client : 



Protected Sub declenche_NouvelleCommande (ByVal nb as integer) 

RaiseEvent NouvelleCommande (nb) 
End sub 



Dans la sous-classe de client : 



Public Sub plusUne() 

declenche_NouvelleCommande (numero) 
End Sub 
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6. Les delegues 



II peut etre parfois utile de pouvoir passer comme parametre a une fonction ou a une procedure non pas un type simple 
ou objet mais directement une procedure ou fonction. Par exemple, si nous voulons choisir le critere suivant lequel nous 
allons faire le tri de nos employes, nous devons ecrire une fonction de comparaison pour chacun des criteres. Lors de 
I'appel de la procedure de tri, nous specifierons quelle methode utiliser pour effectuer la comparaison. 



a. Declaration et creation d'un delegue 

La premiere etape consiste a declarer le delegue. Cette declaration utilise le mot cle Delegate suivi de la signature de 
la procedure ou fonction. 



Public Delegate Function comparaison (ByVal ol As Object, ByVal o2 As Object) 
As Integer 

II faut ensuite creer une procedure ou fonction qui respecte la signature du delegue. Dans notre cas, nous allons creer 
deux fonctions capables de comparer deux Clients. 

Nous en creerons une pour effectuer la comparaison sur le code et une deuxieme pour la comparaison sur le nombre 
de commandes. Ces fonctions peuvent etre ecrites dans un module ou dans une classe. Dans ce dernier cas, la 
fonction doit etre declaree partagee, avec le mot cle shared pour qu'elle soit accessible sans avoir a creer d'instance 
de la classe. 



Function compareCode (ByVal cl As Client, 


ByVal 


c2 As Client) 


As Integer 


Select Case cl.code 








Case Is < c2 . code 








Return -1 








Case c2 . code 








Return 0 








Case Else 








Return 1 








End Select 








End Function 








Function compareNbCommandes (ByVal cl As 


Client , 


ByVal c2 As 


Client) As Integer 


Select Case cl . nb comma nde 








Case Is < c2 . nbcommande 








Return -1 








Case c2 . nbcommande 








Return 0 








Case Else 








Return 1 








End Select 








End Function 









II faut maintenant modifier notre fonction de tri pour qu'en plus du tableau a trier, elle prenne, comme parametre, la 
fonction utilisee pour la comparaison de deux elements du tableau. Notre fonction de tri devient done : 



Public Sub tri (ByVal tablo() As Object, ByVal comparateur As comparaison) 
Dim i As Integer 
Dim j As Integer 
Dim o As Object 

For i = 0 To UBound (tablo) - 1 

For j = i + 1 To UBound (tablo) 

If comparateur . Invoke (tablo ( j ) , tablo (i) ) < 0 Then 
o = tablo ( j ) 
tablo (j) = tablo (i) 
tablo (i ) = o 
End If 

Next 

Next 
End Sub 



Deux modifications dans notre code : 
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• I'ajout du parametre comparateur comme delegue pour notre fonction de tri, 

• I'utilisation de ce delegue pour comparer deux elements du tableau en utilisant la methode invoke. 

Les elements du tableau ne sont plus obliges d'implementer 1'interface comparable car un moyen de les comparer deux 
a deux est passee a la fonction. 

b. Utilisation des delegues 

Pour utiliser la fonction de tri, nous devons maintenant lui fournir deux parametres : le tableau a trier et une instance 
d'un delegue utilise pour trier le tableau. Nous devons done creer une instance d'un delegue. 

Dim fct As comparaison 

fct = New comparaison (AddressOf compareCode) 

Le constructeur attend un parametre lui permettant de trouver le code de la fonction. L'operatorAddressOf extrait 
I'adresse memoire de la fonction et la passe done au constructeur. 

Nous pouvons ensuite appeler la fonction de tri en lui passant comme deuxieme parametre I'instance du delegue. 

tri (tab, fct ) 

C\ Si nous souhaitons utiliser un autre critere de tri, nous devons simplement creer une autre fonction respectant 
v la signature du delegue et construire un delegue a partir de cette fonction. 



c. Expressions lambda 

Une expression lambda est comparable a une fonction sans nom effectuant un traitement et retournant une simple 
valeur. El les peuvent etre utilisees partout ou un delegue est attendu. 
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Les types generiques 



Les types generiques sont des elements d'un programme qui s'adaptent, automatiquement, pour realiser la meme 
fonctionnalite sur differents types de donnees. Lorsque vous creez un element generique, vous n'avez pas besoin de 
concevoir une version differente pour chaque type de donnee avec lequel vous souhaitez realiser une fonctionnalite. 

Pour faire une analogie avec un objet courant, nous allons prendre I'exemple d'un tournevis. En fonction du type de vis a 
utiliser, vous pouvez prendre un tournevis specifique pour ce type de vis (plat, cruciforme, torx...). Une technique 
frequemment utilisee par un bricoleur averti consiste a acquerir un tournevis universel avec de multiples embouts. En 
fonction du type de vis, il choisit I'embout adapte. Le resultat final est le meme que s'il dispose d'une multitude de 
tournevis differents : II peut visser et devisser. 

Lorsque vous utilisez un type generique, vous le parametrez avec un type de donnees. Ceci permet au code de 
s'adapter automatiquement et de realiser la meme action independamment du type de donnees. Une alternative 
pourrait etre I'utilisation du type universel object. L'utilisation des types generiques presente plusieurs avantages par 
rapport a cette solution : 

• El le impose la verification des types de donnees au moment de la compilation et evite les verifications qui doivent 
etre effectuees manuellement avec I'utilisation du type object. 

• El le evite les operations de conversion, du type object vers un type plus specifique et inversement, 
consommatrices de ressources. 

• Elle evite I'utilisation de la liaison tardive, incontournable avec le type object. 

• L'ecriture du code est facilitee par I'environnement de developpement grace a IntelliSense. 

• Elle favorise l'ecriture d'algorithmes independants des types de donnees. 

Les types generiques peuvent cependant imposer certaines restrictions concernant le type de donnee utilise. lis 
peuvent, par exemple, imposer que le type utilise implemente une ou plusieurs interfaces, qu'il soit un type reference ou 
possede un constructeur par defaut. 

II est important de bien comprendre quelques termes utilises avec les generiques : 
Le type generique 

C'est la definition d'une classe, structure, interface ou procedure pour laquelle vous specifiez au moins un type de 
donnees, au moment de sa declaration. 

Le type para metre 

C'est I'emplacement reserve pour le type de donnees dans la declaration du type generique. 
Le type argument 

C'est le type de donnees qui remplace le type de parametre, lors de la construction d'un type a partir d'un type 
generique. 

Les contraintes 

Ce sont les conditions que vous imposez qui limitent le type argument que vous pouvez fournir. 
Le type construit 

C'est la classe, interface, structure ou procedure declaree a partir d'un type generique pour lequel vous avez specifie 
des types argument. 



1. Les classes generiques 

Une classe qui attend un type de parametre est appelee classe generique. Vous pouvez generer une classe construite 
en fournissant a la classe generique un type argument pour chacun de ces types parametre. 
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a. Definition d'une classe generique 



Vous pouvez definir une classe generique qui fournit les memes fonctionnalites sur differents types de donnees. Pour 
cela, vous devez fournir un ou plusieurs types de parametre dans la definition de la classe. Prenons I'exemple d'une 
classe, capable de gerer une liste d'elements avec les fonctionnalites suivantes : 

• Ajouter un element ; 

• Supprimer un element ; 

• Se deplacer sur le premier element ; 

• Se deplacer sur le dernier element ; 

• Se deplacer sur I'element suivant ; 

• Se deplacer sur I'element precedent ; 

• Obtenir le nombre d'elements. 

Nous devons tout d'abord definir la classe comme une classe ordinaire. 



Public Class ListeGenerique 
End Class 



La transformation de cette classe en classe generique s'effectue en ajoutant un type de parametre immediatement 
apres le nom de la classe. 



Public Class ListeGenerique (Of typeDeDonnee ) 
End Class 



Si plusieurs types de parametres sont necessaires, il doivent etre separes par des virgules sans repeter le mot cle of. 

Si votre code doit realiser d'autres operations que des affectations, vous devez ajouter des contraintes sur le type de 
parametre. Pour cela, ajouter le mot cle As suivi de la contrainte. Par exemple, si le parametre doit implementer une 
interface particuliere, utilisez la syntaxe suivante : 



Public Class ListeGenerique (Of typeDeDonnee As ICloneable) 
End Class 

S'il n'y a pas de contrainte de specifiee, les seules operations autorisees seront celles supportees par le type object. 

Dans le code de la classe, chaque membre qui doit etre du type du parametre doit etre defini avec la syntaxe As 
typeDeDonnee, dans notre cas. Voyons maintenant le code complet de la classe. 

Public Class ListeGenerique (Of typeDeDonnee) 

' tableau pour stocker les elements de la liste 

Private liste () As typeDeDonnee 

' pointeur de position dans la liste 

Private position = 0 

' pointeur pour l'ajout d' un nouvel element 
Private elementSuivant = 0 
'nombre d'elemments de la liste 
Private nbElements = 0 
' dimension de la liste 
Private taille As Integer 
' indique si la liste est pleine 
Private complet As Boolean = False 

' constructeur avec un parametre permettant de dimensionner la liste 
Public Sub New(ByVal taille As Integer) 

liste = New typeDeDonnee (taille - 1) {} 

MyClass . taille = taille 
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End Sub 

Public Sub ajout (ByVal element As typeDeDonnee ) 
' on verifie si la liste est complete avant 
' d'ajouter un element 
If Not complet Then 

liste (elementSuivant ) = element 

nbElements = nbElements + 1 

complet = (nbElements = taille) 

' si la liste n'est pas complete on positionne le pointeur 
' pour 1' ajout de 1' element suivant 
If Not complet Then 

elementSuivant = elementSuivant + 1 
End If 

Else 

Beep ( ) 
End If 
End Sub 

Public Sub supprime (ByVal index As Integer) 
Dim i As Integer 

' on verifie si 1' index n'est pas superieur au nombre d' elements 

' si 1' index n'est pas inferieur a 0 

If index<+>>= nbElements OrElse index < 0 Then 

Beep ( ) 

Exit Sub 
End If 

' on decale les elements d'une position vers le haut 

For i = index To nbElements - 2 
liste (i) = liste (i + 1) 

Next 

' on positionne le pointeur pour 1' ajout d' un nouvel element 
elementSuivant = elementSuivant - 1 
' on met a jour le nombre d' elements 
nbElements = nbElements - 1 
End Sub 

Public Readonly Property tailleListe ( ) As Integer 
Get 

Return nbElements 
End Get 
End Property 

Public Function premier () As typeDeDonnee 
If nbElements = 0 Then 

Err .Raise (1000, , "liste vide") 
End If 

' on deplace le pointeur sur le premier element 
position = 0 
Return liste ( 0 ) 
End Function 

Public Function dernier () As typeDeDonnee 
If nbElements = 0 Then 

Err .Raise (1000, , "liste vide") 
End If 

' on deplace le pointeur sur le dernier element 
position = nbElements - 1 
Return liste (position) 
End Function 

Public Function suivant () As typeDeDonnee 
If nbElements = 0 Then 

Err .Raise (1000, , "liste vide") 
End If 

' on verifie si on n'est pas a la fin de la liste 
If position = nbElements - 1 Then 
Beep ( ) 

Err . Raise ( 1 0 0 0 , , "pas d'element suivant") 
Exit Function 
End If 

' on deplace le pointeur sur 1' element suivant 
position = position + 1 
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Return liste (position) 
End Function 

Public Function precedent () As typeDeDonnee 
If nbElements = 0 Then 

Err .Raise (1000, , "liste vide") 
End If 

' on verifie si on n'est pas sur le premier element 
If position = 0 Then 
Beep ( ) 

Err . Raise ( 1 0 0 0 , , "pas d' element precedent") 
Exit Function 
End If 

' on se deplace sur 1' element precedent 
position = position - 1 
Return liste (position) 
End Function 
End Class 



b. Utilisation d'une classe generique 



Pour pouvoir utiliser une classe generique, vous devez tout d'abord generer une classe construite en fournissant un 
type argument pour chacun de ces types parametre. Vous pouvez alors instancier la classe construite par un des 
constructeurs disponibles. Nous allons utiliser la classe congue precedemment pour travailler avec une liste d'entiers. 



Dim liste As New ListeGenerique (Of Integer) (5) 



Cette declaration permet d'instancier une liste de cinq entiers. Les methodes de la classe sont alors disponibles. 



liste . a jout ( 10 ) 
liste . a jout ( 11 ) 



Le compilateur verifie bien sur que nous utilisons notre classe correctement, notamment en verifiant les types de 
donnees que nous lui confions. 



liste . ajout ( "premier") 
liste . aiout ( "deuxieme") 
liste . ajout ( "troisieme") 

— 1 /vVvVvvVvVvVvVvVvV-.V-D 1 

liste . ajout ( "quatr ieme") 
liste . ajout ( "cinquieme") 



Option Strict On interdjt les conversions implicites de 'String' en 'Integer'. 



Voici le code d'une petite application permettant de tester le bon fonctionnement de notre classe generique : 



Module testGenerique 

Dim liste As New ListeGenerique (Of Integer) (5) 
Public Sub main ( ) 

liste . ajout (10) 

liste . ajout (11) 

liste . ajout ( 12 ) 

liste . ajout (13) 

liste . ajout ( 14 ) 

liste . ajout (15) 

menu ( ) 
End Sub 

Public Sub menu ( ) 

Dim choix As Char 

On Error GoTo gestionerreur 

Console . SetCursorPosition ( 1 , 24) 

Console . WriteLine ( "p (premier) < (precedent) >(suivant) d (dernier) f 

(fin) ") 

While choix <> "f" 

choix = Console . ReadLine ( ) 
Console . Clear ( ) 

Console . SetCursorPosition ( 1 , 1) 
Select Case choix 
Case "p" 
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Console .WriteLine ( "le premier {0}", liste . premier () ) 
Case "<" 

Console . WriteLine (" le precedent {0}", liste . precedent () ) 
Case ">" 

Console . WriteLine (" le suivant {0}", liste . suivant () ) 
Case "d" 

Console . WriteLine (" le dernier {0}", liste . dernier () ) 
End Select 

Console . SetCursorPosition ( 1 , 24) 

Console . WriteLine ( "p (premier) < (precedent) > (suivant) d 
(dernier) f (fin)") 

End While 

Exit Sub 
gestionerreur : 

Console . ForegroundColor = ConsoleColor . Red 

Console . WriteLine (Err . Description) 

Console . Re set Color ( ) 

Resume Next 
End Sub 
End Module 



Nous pouvons egalement verifier que notre classe fonctionne sans probleme si nous lui demandons de travailler avec 
des chaines de caracteres. 



Public Sub main 


0 


liste . a jout 


( "premier" ) 


liste . a jout 


( " deuxieme " ) 


liste . a jout 


( "troisieme " ) 


liste . a jout 


( " quatrieme " ) 


liste . a jout 


( " cinquieme " ) 


menu ( ) 




End Sub 





2. Procedures et fonctions generiques 

Une procedure ou une fonction generique sont des methodes definies avec au moins un type parametre. Ceci permet 
au code appelant de specifier le type de donnees dont il a besoin a chaque appel de la procedure ou fonction. Une telle 
methode peut cependant etre utilisee sans indiquer d'information pour le type argument. Dans ce cas, le compilateur 
essaie de determiner le type, en fonction des arguments passes a la methode. Cette solution doit toutefois etre 
utilisee avec precaution, car si le compilateur ne peut pas determiner le type des arguments, il genere une erreur de 
compilation. 

a. Creation d'une procedure ou fonction generique 

La declaration d'une procedure ou fonction generique doit contenir au moins un type parametre. Ce type parametre 
est defini par I'utilisation du mot cle of suivi d'un identifiant. Cet identifiant est ensuite utilise dans le reste du code, a 
chaque fois que vous avez besoin d'utiliser le type parametre. 

Nous allons creer une fonction generique capable de rechercher un element particulier dans un tableau de n'importe 
quel type. Cette fonction va utiliser un type parametre indiquant la nature des elements presents dans le tableau. 
Pour pouvoir rechercher un element dans le tableau, nous devrons le comparer avec ceux presents dans toutes les 
cases du tableau. Pour s'assurer que cette comparaison sera possible, nous ajoutons une contrainte sur le type 
parametre : il doit implementer I'interface icomparabie afin de garantir que la methode compareTo utilisee dans la 
fonction soit disponible pour chaque element du tableau. La declaration de la fonction prend la forme suivante : 



Public function rechercheGenerique (Of typeDonnee As Icomparabie) (byval 
tablo As typeDonne(), elementRecherche As typeDonnee) As Integer 

Apres avoir verifie que le tableau contient au moins un element, nous devons comparer I'element recherche avec celui 
present dans chaque case du tableau. S'il y a egalite, la fonction retourne I'index ou I'eleiment a ete trouve, sinon la 
fonction retourne -1. Pour effectuer la comparaison, nous utiliserons la fonction CompareTo de chaque element du 
tableau. 



Public Function rechercheGenerique (Of typeDonnee As Icomparabie) (ByVal tablo 
As typeDonnee () , ByVal elementRecherche As typeDonnee) As Integer 

'test si le tableau a plus d'une dimension 

If tablo. Rank () > 1 Then 
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Return -1 
End If 

' test si le tableau est vide 
If tablo. Length = 0 Then 

Return -1 
End If 

For i As Integer = 0 To tablo . GetUpperBound ( 0 ) 

If tablo (i) . CompareTo (elementRecherche ) = 0 Then 

Return i 
End If 

Next 

Return -1 
End Function 



b. Utilisation d'une procedure ou fonction generique 



L'utilisation d'une procedure ou fonction generique est identique a celle d'une procedure ou fonction classique, hormis 
la necessite de specifier un type argument pour le ou les types parametre. 

Le code suivant permet de tester le bon fonctionnement de notre fonction. 



Public Sub main () 




Dim t() As Integer = {12, 45, 85, 47, 62, 95, 81} 




Dim resultat As Integer 




resultat = rechercheGenerique (Of Integer) (t, 47) 




If resultat = -1 Then 




Console . WriteLine ( "valeur non trouvee") 




Else 




Console . WriteLine ( "valeur trouvee a la position 


{0}", resultat) 


End If 




Console . ReadLine ( ) 




Dim s() As String = {"un", "deux", "trois", "quatre" 


, " cinq" } 


resultat = rechercheGenerique (Of String) (s, "six") 




If resultat = -1 Then 




Console . WriteLine ( "valeur non trouvee") 




Else 




Console . WriteLine ( "valeur trouvee a la position 


{0}", resultat) 


End If 




Console . ReadLine ( ) 




End Sub 
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Les collections 

Les applications ont tres frequemment besoin de manipuler de grandes quantities d'information. De nombreuses 
structures sont disponibles en Visual Basic pour faciliter la gestion de ces informations. Elles sont regroupees sous le 
terme collection. Comme dans la vie courante, il y a differents types de collection. II peut y avoir des personnes qui 
recuperent toute sorte de choses mais qui n'ont pas d'organisation particuliere pour les ranger, d'autres qui sont 
specialisees dans la collection de certains types d'objets, les maniaques qui prennent toutes les precautions possibles 
pour pouvoir retrouver a coup sur un objet... 

II existe dans le Framework .NET des classes correspondant a chacune de ces situations. 



1. Les collections predefinies 

Les differentes classes permettant la gestion de collections sont reparties dans deux espaces de nom : 

• System. Collections 

• System. Collections. Generic 

Le premier contient les classes normales alors que le deuxieme contient les classes generiques equivalentes 
permettant la creation de collections fortement typees. Ces collections fortement typees sont specialisees dans la 
gestion d'un type precis de donnees. Bien que ces nombreuses classes fournissent des fonctionnalites differentes, 
elles ont quand meme des points communs, dus au fait qu'elles implementent les memes interfaces. Par exemple, 
toutes ces classes sont capables de fournir un objet enumerator permettant de parcourir I'ensemble de la collection. 
C'est cet objet qui est d'ailleurs utilise par 1'instruction For Each de Visual Basic. 



a. Array 

La classe Array ne fait pas partie de I'espace de nom system. collections mais elle peut quand meme etre 
consideree comme une collection car elle implemente I'interface Hist. Les tableaux crees a partir de la classe Array 
sont de ta i I le fixe, meme s'il est possible d'utiliser I'instruction redim pour redimensionner un tableau. En fait, 
1'instruction redim n'agrandit pas le tableau mais cree un nouveau tableau plus grand ou plus petit et recopie 
eventuellement les valeurs existantes, si le mot cle Preserve est utilise. Cette classe contient egalement une 
multitude de methodes partagees, permettant I'execution de nombreuses fonctionnalites sur des tableaux. Deux 
proprietes sont tres utiles pour I'utilisation de la classe Array : 

• Length qui represente le nombre total d'elements dans le tableau. 

• Rank qui contient le nombre de dimensions du tableau. 

Cette classe est rarement utilisee pour la creation d'un tableau car Ton prefere utiliser la syntaxe Visual Basic pour 
cela. 



b. ArrayList et List 

La classe ArrayList ou sa version generique List sont des evolutions de la classe Array. Elles apportent de 
nombreuses ameliorations par rapport a cette derniere. 

• La ta i I le d'un ArrayList est dynamique et est automatiquement ajustee en fonction des besoins. Le 
traitement, qui pour un Array devait etre realise par I'instruction Redim, est effectue automatiquement. 

• Elle propose des methodes permettant I'ajout, I'insertion et la suppression de plusieurs elements 
simultanement en une seule operation. 

Par contre, sur certains points, la classe ArrayList est moins efficace qu'un simple tableau : 

• Les ArrayList n'ont qu'une seule dimension. 

• Un tableau de donnees d'un type specifique est plus efficace qu'un ArrayList dont les elements sont geres 
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en tant qu'Object. L'utilisation de la version generique (List) permet d'obtenir des performances 
equivalentes. 

Comme toute classe, un ArrayList doit etre instancie avant de pouvoir etre utilise. Deux constructeurs sont 
disponibles. Le premier est le constructeur par defaut et cree un ArrayList avec une capacite initiale de zero. II sera 
ensuite dimensionne, automatiquement, lors de I'ajout d'elements. Cette solution n'est pas conseillee car 
I'agrandissement de I'ArrayList consomme beaucoup de ressources. Si vous avez une estimation du nombre 
d'elements a stocker, il est preferable d'utiliser le deuxieme constructeur qui attend comme parametre la capacite 
initiale de I'ArrayList. Ceci evite le dimensionnement automatique lors de I'ajout. 



noter que la taille indiquee n'est pas definitive et I'ArrayList pourra contenir plus d'elements prevus 
initialement. 



La propriete capacity permet de connaitre le nombre d'elements que I'ArrayList peut contenir. La propriete count 
indique le nombre actuel d'elements dans I'ArrayList. Les methodes Add et AddRange ajoutent des elements a la fin 
de la liste. Les methodes insert et insertRange permettent de choisir I'emplacement ou va s'effectuer I'ajout. La 
propriete item, qui est la propriete par defaut de classe, s'utilise pour atteindre un element a une position donnee. La 
suppression d'elements se fait par la methode RemoveAt ou RemoveRange ; la premiere attend comme parametre 
I'index de I'element a supprimer, la deuxieme exige en plus le nombre d'elements a supprimer. La methode clear est 
plus radicale et supprime tous les elements. 



Le code suivant ill ustre le fonctionnement de cette classe : 



Public Sub main ( ) 




Dim liste As ArrayList 




Dim c As Client 




iisie — i\iew AiidyList \) 




Lonsoie . wnteLine ( capacite mitiaie ae ia uste t u j , uste . 


""""1 -""s / — ^ -i -1 — T T 1 

capacity j 


Console . WriteLine (" nombre d'elements de la liste {0}", liste. 


Count ) 


Console . WriteLine (" a j out d'un client") 




~. "NT^tt P~l-i^v\4-/ll^--.~l-i^v\4-1ll IT -1^^ ^rvi 1 !! H^^^i-i^^-t-H 1 O H 1 \ 

c — New Client ( client 1 , prenomi , secret , 1UU1) 




1 1 s t e . aqq \ c ) 




console . WriteLine ( capacite ae la liste {U} , liste . capacity j 




Console . WriteLine (" nombre d'elements de la liste {0}", liste. 


Count ) 


Console . WriteLine (" a j out de quatre clients") 




c — iNew uiient \ ciientz , prenomz , secret , iuuz j 




liste . Ada ( c ) 




c — New Client ( client J , prenomj , secret , 1UUJ) 




liste . Aaa ( c ) 




c — New client { clients , prenomi , secret , luu^j 




liste . Aaa ( c ) 




c — New Client ( client o , prenomo , secret , lUUo) 




liste .Add (c) 




Console .WriteLine ( "capacite de la liste {0}", liste . Capacity ) 




Console . WriteLine ( "nombre d'elements de la liste {0}", liste. 


Count ) 


Console . WriteLine ( "affichage de la liste des clients") 




For Each c In liste 




c . affichage ( ) 




Console . WriteLine () 




Next 




Console. WriteLine ("effacement des clients 1002, 1003, 1004") 




liste . RemoveRange ( 1 , 3) 




Console . WriteLine (" capacite de la liste {0}", liste . Capacity ) 




Console . WriteLine ( "nombre d'elements de la liste {0}", liste. 


Count ) 


Console .WriteLine ( "affichage de la liste des clients") 




For Each c In liste 




c . affichage ( ) 




Console . WriteLine () 




Next 




Console .WriteLine ( "affichage du deuxieme client de la liste") 




liste (1) .affichage () 




Console . WriteLine () 




Console .WriteLine ( "effacement de tous les clients") 




liste . Clear ( ) 




Console . WriteLine (" capacite de la liste {0}", liste . Capacity ) 




Console . WriteLine ( "nombre d'elements de la liste {0}", liste. 


Count ) 


Console . ReadLine ( ) 




End Sub 
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II affiche le resultat suivant : 



capacite initiale de la 


liste 0 












nombre d' elements de la 


liste 0 












ajout cT un client 














capacite de la liste 4 














nombre d' elements de la 


liste 1 












ajout de quatre clients 














capacite de la liste 8 














nombre cT elements de la 


liste 5 












affichage de la liste des clients 












Mr clientl prenoml ne le 


01/01/0001 


00:00: 


00 


code 


Client : 


1001 


Mr client2 prenom2 ne le 


01/01/0001 


00:00: 


00 


code 


Client : 


1002 


Mr client3 prenom3 ne le 


01/01/0001 


00:00: 


00 


code 


Client : 


1003 


Mr client4 prenom4 ne le 


01/01/0001 


00:00: 


00 


code 


Client : 


1004 


Effacement des clients 1002, 1003, 


1004 










capacite de la liste 8 














nombre cT elements de la 


liste 2 












affichage de la liste des clients 












Mr clientl prenoml ne le 


01/01/0001 


00:00: 


00 


code 


Client : 


1001 


Mr client5 prenom5 ne le 


01/01/0001 


00:00: 


00 


code 


Client : 


1005 


affichage du deuxieme client de la 


liste 










Mr client5 prenom5 ne le 


01/01/0001 


00:00: 


00 


code 


Client : 


1005 


Effacement de tous les 


clients 












capacite de la liste 8 














nombre cT elements de la 


liste 0 













^ La capacite de la liste ne diminue pas lors de la suppression d'un element, meme lorsque la liste est vide. 



c. Hashtable et Dictionary 

Une Hashtable ou sa version generique Dictionary enregistre les informations sous forme de couple des valeur. La 
Hashtable est constitute en interne de compartiments contenant les elements de la collection. Pour chaque element 
de la collection, un code est genere par une fonction de hachage, basee sur la cle de chaque element. Le code est 
ensuite utilise pour identifier le compartiment dans lequel est stocke I'element. Lors de la recherche d'un element 
dans la collection, I'operation inverse est effectuee. Le code de hachage est genere a partir de la cle de I'element 
recherche. Cette cle sert ensuite a identifier le compartiment dans lequel se trouve I'element recherche. Pour qu'une 
Hashtable puisse stocker un objet, celui-ci doit etre capable de fournir son propre code de hachage. 



d. Queue 

Ce type de collection est utilise lorsque vous avez besoin d'un espace de stockage temporaire. Lorsqu'un element est 
recupere a partir de la collection, il est en meme temps supprimer de la collection. 

Les collections de type Queue sont adaptees, si vous avez besoin d'acceder aux informations dans le meme ordre que 
celui dans lequel elles ont ete stockees dans la collection. Ce type de gestion est parfois appele First In - First Out 
(FiFo). Les trois principales operations disponibles sont : 

• Enqueue pour ajouter un element a la fin de la queue, 

• Dequeue pour obtenir I'element le plus ancien de la queue et le supprimer, 

• Peek pour obtenir I'element le plus ancien sans le supprimer de la queue. 
L'exemple suivant illustre I'uti I isation de ces trois methodes. 



Public Sub main ( ) 

Dim q As Queue 
q = New Queue 
Dim c As Client 

c = New Client ("clientl", "prenoml", "secret", 1001) 
Console .WriteLine ( "arrivee du premier client: {0}", c.nom) 
q. Enqueue (c) 
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c = New Client ("client2", "prenom2", "secret", 1002) 
Console .WriteLine ( "arrivee du deuxieme client: {0}", c.nom) 
q. Enqueue (c) 

c = New Client ("clients", "prenom3", "secret", 1003) 
Console .WriteLine ( "arrivee du troisieme client: {0}", c.nom) 
q. Enqueue (c) 

Console . WriteLine ( "depart du premier client: {0}", q . Dequeue . nom) 
Console . WriteLine (" il reste {0} clients", q. Count) 

Console . WriteLine ( "depart du deuxieme client: {0}", q . Dequeue . nom) 
Console . WriteLine (" il reste {0} client", q. Count) 

Console . WriteLine (" le troisieme client s ' incruste : { 0 } " , q. Peek. nom) 
Console . WriteLine (" il reste {0} client", q. Count) 

Console . WriteLine ( "depart du troisieme client: {0}", q . Dequeue . nom) 
Console . WriteLine (" il reste {0} client", q. Count) 
Console . ReadLine ( ) 
End Sub 



e. Stack 

Les collections de ce type utilisent le meme principe que les Queue : lorsqu'un element est recupere de la collection, il 
en est supprime. La seule distinction par rapport a la classe Queue est I'ordre dans lequel les elements sont 
recuperes. Ce type de collection utilise la technique last in - first out (lifo). L'exemple classique de ce type de 
gestion est la pile d'assiettes de votre cuisine. Apres avoir fait la vaisselle, vous empilez les assiettes sur une 
etagere. Le lendemain lorsque vous mettez le couvert, la premiere assiette disponible est la derniere, rangee la 
veille. 

Les trois principales operations disponibles sont : 

• Push pour ajouter un element au sommet de la pile ; 

• Pop pour obtenir I'element au sommet de la pile et le supprimer ; 

• Peek pour obtenir I'element au sommet de la pile sans le supprimer de la pile. 



2. Choisir un type de collection 

Voici quelques conseils pour choisir le type de collection adapte a vos besoins. 

• Vous avez besoin d'acceder aux elements de la collection par un index : utilisez une ArrayList. 

• L'acces aux elements doit s'effectuer dans I'ordre de I'ajout dans la collection ou dans I'ordre inverse : utilisez 

une Queue ou une Stack. 

• Vous avez besoin de trier les elements dans un ordre different de celui dans lequel ils sont ajoutes a la 

Collection : Utilisez une ArrayList OU une Hashtable. 

• Les elements a stocker dans la liste sont des couples cle-element : utilisez une Hashtable. 
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Les objets intrinseques 



De nombreux objets sont disponibles automatiquement a partir de Visual Basic sans que vous ayez a en creer une 
instance. Ces objets sont accessibles par le mot cleMy. lis permettent la manipulation et I'acces a des informations, 
frequemment utilisees au cours du fonctionnement d'une application. lis fournissent, par exemple, un moyen d'acceder 
aux proprietes de la machine sur laquelle s'execute I'application, par I'intermediaire de My. computer, ou aux proprietes de 
I'application elle-meme par I'intermediaire de My .Application. En fonction du type de projet sur lequel vous travaillez, il 
est possible que certains objets ne soient pas disponibles. Le tableau suivant presente les objets existants et le 
contexte dans lequel ils sont disponibles. 





Application 

WlnCIOWS 


Bibliotheque 
ae classes 


Application 
console 


Bibliotheque 
de controles 
Windows 


Service 

WlnCIOWS 


My. Application 


Oui 


Oui 


Oui 


Oui 


Oui 


My. Computer 


Oui 


Oui 


Oui 


Oui 


Oui 


My. Forms 


Oui 


Non 


Non 


Oui 


Non 


My. Resources 


Oui 


Oui 


Oui 


Oui 


Oui 


My. Settings 


Oui 


Oui 


Oui 


Oui 


Oui 


My. User 


Oui 


Oui 


Oui 


Oui 


Oui 


My.WebServices 


Oui 


Oui 


Oui 


Oui 


Oui 



En fonction du type de projet dans lequel ils sont utilises, certaines proprietes de ces objets peuvent etre indisponibles. 
Par exemple, la propriete MainForm de I'objet Application n'est utilisable que dans les projets d'application Windows. 



• L'objet Application fournit des proprietes methodes et evenements concernant I'application courante. II permet, 

par exemple, la recuperation d'informations sur la configuration linguistique de I'application, les parametres de la 
ligne de commande utilises pour lancer I'application ou encore les informations concernant la version de 
I'application. 

• L'objet computer facilite I'acces aux differentes ressources, accessibles sur la machine. II permet par exemple 
I'acces direct au systeme audio de la machine, au clavier, a la souris ou encore au reseau. 

• L'objet Forms met a votre disposition une instance de chacune des fenetres disponibles dans le projet. L'acces se 
fait par le nom de classe correspondant a la fenetre qui devient ainsi une propriete de l'objet Forms. 

• L'objet Resources permet I'acces aux ressources audio, icones, images et chaines de caracteres definies au 
niveau du projet. 

• L'objet settings permet I'acces aux parametres de I'application definis par les proprietes du projet. 

• L'objet user represente I'utilisateur de I'application. Si aucune authentification specifique n'est utilisee dans 
I'application alors l'objet user correspond a I'utilisateur avec lequel la session Windows a ete ouverte. 

• L'objet webservices fournit une instance de chaque service web reference dans I'application. Comme pour la 
propriete Forms, I'acces s'effectue par le nom du service Web. 
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Les differents types d'erreurs 



Pour un developpeur, les erreurs sont une des principales sources de stress. En fait, nous pouvons classer ces erreurs 
en trois categories. Regardons chacune d'entre elles et les solutions disponibles pour les traiter. 



1. Les erreurs de syntaxe 



Ce type d'erreur se produit au moment de la compilation, lorsqu'un mot cle du langage est mal orthographie. Tres 
frequentes avec les premiers outils de developpement ou I'editeur de code et le compilateur etaient deux entites 
separees, elles deviennent de plus en plus rares avec les environnements tels que Visual Studio. La plupart de ces 
environnements proposent une analyse syntaxique au fur et a mesure de la saisie du code. De ce point de vue, Visual 
Studio propose de nombreuses fonctionnalites nous permettant d'eliminer ces erreurs. 

II surveille, par exemple, que chaque instruction if est bien terminee par un End if. 



If doit se terminer par un 'End If correspondent. 



If choix = 1 Then 



ZvW/WvVWWvVWWvWAWAM 



J W 



Console . RflrTrrfrniinrifnlnr = finnan 1 pTn 1 nr 



Options de correction d'erreurs (Maj+Alt+FlO) 



Yellow 



Si une erreur de syntaxe est detectee, Visual Basic propose les solutions possibles pour corriger cette erreur. Elles 
sont affichees en cliquant sur I'icone associee a I'erreur. 



If choix = 1 Then 

JVvV^WMVvWvWvVv\W/lWAi 



Conso le . Eai 



'IP doit se terminer par un 'End If correspondant. 





Inserez le 'End If manquant, 






choiK = Console . ReadLine 
If choix = 1 Then 


1 




End If 






Console . Back groundCo lor = 


ConsoleCf: 









P' Developper tous les apercus 



D'autre part les "fautes d'orthographe" dans les noms de proprietes ou de methodes sont facilement eliminees grace 
aux fonctionnalites inteiiisense. inteiiisense prend en charge les fonctionnalites suivantes : 



• L'affichage automatique de la liste des membres disponibles : 



console . 



^ SetWindowPosition 

^ 5etWindow5ize 

W Title 

TreatControlCAsInput 

WindowHeight 

WindowLePt 

WindowTop 

|f WindowWidth 

V Write 

^ ................................................. 



WriteLine 




_ 



Cornmun 



Tous 



• L'affichage de la liste des parametres a fournir pour I'appel d'une procedure ou fonction : 
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console. UriteLine ( 

^ 5 sur 18 t WriteLine (buffer() As Char, index As Integer, count As Integer) 
buffer: Tableau de caracteres Unicode. 



C\ Si plusieurs surcharges sont disponibles, inteiiisense affiche leur nombre et vous permet de les parcourir en 
utilisant les fleches haut et bas du clavier. 



• L'affichage d'informations ponctuelles sur membres d'une classe : 



console . b 



BackgroundColor 



=^ Beep 

BufferHeight 

3^ BufferWidth 

if CapsLock 
V Clear 

5* CursorLeft 
Cursor5ize 
CursorTop 
CursorVisible 



Comrmun 



Public Shared Property BackgroundColorQ As System. ConsoleColor 
Obtient ou definit la couleur d'arriere-plan de la console. 



Tous 



• Le complement automatique de mots : commencez a saisir un debut de mot puis utilisez la combinaison de 

touches [Ctrl] [Espace] pour afficher tout ce que vous pouvez utiliser comme mot, a cet emplacement, 
commengant par les caracteres deja saisis. S'il n'y a qu'une seule possibility, le mot est ajoute 
automatiquement, sinon selectionnez-le dans la liste et validez avec la touche [Tab]. 



• L'affichage de la liste des valeurs possibles pour une propriete de type enumeration. 



If choix = 1 Then 



Console . EackgroundCol 
End If 



U L" = 



ConsoleColor. 
ConsoleColor. 
_=] ConsoleColor. 
ConsoleColor. 
ConsoleColor. 
ConsoleColor. 
_£) ConsoleColor. 



Black 

Blue 

Cyan 

DarkElue 

DarkCyan 

DarkGray 

DarkGreen 



ConsoleColor . DarkMagenta 



l=] ConsoleColor. DarkRed 
ConsoleColor. DarkVellow 



Avec toutes ces fonctionnalites, il est pratiquement impossible de generer des fautes de syntaxe dans le code, 



2. Les erreurs d'execution 

Ces erreurs apparaissent apres la compilation, lorsque vous lancez I'execution de votre application. La syntaxe du code 
est correcte mais I'environnement de votre application ne permet pas I'execution d'une instruction utilisee dans votre 
application. C'est, par exemple, le cas si vous essayez d'ouvrir un fichier qui n'existe pas sur le disque de votre 
machine. Vous obtiendrez surement une boite de dialogue de ce type. 
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-p ConsoleApplication 1 



ConsoleApplicationl a rencontre un probleme et doit etre ferme. Nous yous 
prions de nous excuser pour le desagrement encouru. I I 




Si vous etiez en train d'effectuer une tache, les informations sur lesquelles vous travailliez 
peuvent avoir ete perdues. 



Debogage 



Farmer 



Ce type de boite de dialogue n'est pas tres sympathique pour I'utilisateur ! 

Heureusement, Visual Basic permet la recuperation de ce type d'erreur et evite ainsi I'affichage de cette inquietante 
boite de dialogue. Deux techniques sont disponibles pour la gestion de ce type d'erreurs : 

• la gestion en ligne ; 

• les exceptions. 

Nous detaillerons cela un peu plus loin dans ce chapitre. 



Les erreurs de logique 

Les pires ennemis des developpeurs. Tout se compile sans probleme, tout s'execute sans probleme et pourtant "ga ne 
marche pas" ! ! ! 

II convient, dans ce cas, de revoir la logique de fonctionnement de rapplication. Les outils de debogage nous 
permettent de suivre le deroulement de 1'application, de placer des points d'arret, de visualiser le contenu des 
variables, etc. 
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Traitement des erreurs 



Deux techniques sont disponibles pour le traitement des erreurs dans Visual Basic : 

• la gestion en ligne ; 

• le traitement par exception. 

1. La gestion en ligne 

L'instruction on Error est I'element de base de la gestion des erreurs en ligne. Lorsque cette instruction est executee, 
dans une procedure ou fonction, elle active la gestion des erreurs pour cette procedure ou fonction. II convient 
cependant d'indiquer comment notre gestionnaire doit reagir lorsqu'une instruction declenche une erreur. Deux 
solutions : 

On error resume next 

L'execution du code va se poursuivre par la ligne suivant celle qui a provoque I'erreur. 

On error goto etiquette 

L'execution du code va se poursuivre par la ligne reperee par etiquette. 
La syntaxe est done la suivante : 

Private Sub Nom_de_procedure ( ) 
On Error Goto gestionErreurs 

"Instructions dangereuses" 

Exit Sub 
gestionErreurs : 

code de gestion des erreurs 

End Sub 

L'etiquette vers laquelle le gestionnaire d'erreurs va rediriger l'execution doit se trouver dans la meme procedure que 
l'instruction on error goto. L'instruction Exit sub est obligatoire pour que le code de gestion d'erreurs ne soit pas 
execute a la suite des instructions normales mais seulement en cas d'erreur. 

Le code du gestionnaire d'erreur doit determiner la conduite a tenir en cas d'erreur. 

Trois solutions : 

Resume 

On essaie a nouveau d'executer la ligne qui a provoque I'erreur. 

resume next 

On continue l'execution par la ligne suivant celle qui a provoque I'erreur. 

exit sub OU exit function 

On abandonne l'execution de cette procedure ou fonction. 

Typiquement, le gestionnaire d'erreurs affichera une boite de dialogue demandant a I'utilisateur ce qu'il souhaite. 
En fonction de sa reponse, on utilisera I'une ou I'autre des solutions. 

Private Sub OuvertureFichier ( ) 

On Error GoTo gestionErreurs 

My . Computer . File System . OpenTextFileReader ( "c : \essai") 
Exit Sub 
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gestionErreurs : 

Dim reponse As Integer 

reponse = MsgBox ( "impossible de lire le fichier", 
MsgBoxStyle . AbortRetrylgnore ) 
Select Case reponse 

Case MsgBoxResult . Retry 
Resume 

Case MsgBoxResult . Ignore 
Resume Next 

Case MsgBoxResult . Abort 
Exit Sub 
End Select 
End Sub 



II nous reste encore un probleme a resoudre : notre gestionnaire d'erreurs reagira quelle que soit I'erreur. Pour 
pouvoir determiner quelle erreur vient de se produire dans I'application, nous avons a notre disposition I'objeterr qui 
nous fournit des informations sur la derniere erreur apparue. Cet objet contient, entre autres, deux proprietes, number 
et description, nous permettant d'obtenir le code de I'erreur et sa description. Nous pouvons done modifier notre code 
pour reagir de fagon differente en fonction de I'erreur. 



Private Sub OuvertureFichierBis ( ) 

On Error GoTo gestionErreurs 

My . Computer . File System. OpenTextFileReader ("a: \essai") 
Exit Sub 
gestionErreurs : 

Dim reponse As Integer 
Console . Writ eLine (Err . Number) 
Stop 

If Err. Number = 53 Then 

reponse = MsgBox (" impossible de trouver le fichier", MsgBoxStyle. 
AbortRetrylgnore ) 

Select Case reponse 

Case MsgBoxResult . Retry 
Resume 

Case MsgBoxResult . Ignore 

Resume Next 
Case MsgBoxResult . Abort 
Exit Sub 
End Select 
End If 

If Err. Number = 57 Then 

reponse = MsgBox (" inserer une disquette dans le lecteur", 
MsgBoxStyle . OKCancel) 

Select Case reponse 

Case MsgBoxResult . OK 
Resume 

Case MsgBoxResult . Cancel 
Exit Sub 
End Select 
End If 
End Sub 



Un gestionnaire d'erreurs peut etre desactive en utilisant I'instruction on error goto o. Si une erreur se produit apres 
cette instruction, elle n'est pas recuperee et I'application s'arrete. 

En fait, I'application ne s'arrete pas immediatement mais Visual Basic recherche dans les fonctions appelantes si un 
gestionnaire d'erreur est actif et s'il en trouve un, il lui confie la gestion de I'erreur. 



Private Sub procedurel() 

On Error GoTo gestionErreurs 

procedure2 ( ) 

Exit Sub 
gestionErreurs : 

MsgBox ( "erreur d' execution" ) 
End Sub 

Private Sub procedure2() 
Dim x, y As Integer 

x = 0 

y = (l / x) 
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End Sub 

Dans cet exemple, la procedure2 va executer une instruction declenchant une erreur (1 / x). Comme il n'y a pas de 
gestionnaire d'erreurs dans cette procedure, Visual Basic va rechercher dans la pile des appels si un gestionnaire est 
actif. Le premier rencontre se trouve dans la procedurel, ce sera done celui-ci qui se chargera de la gestion de I'erreur. 

2. Les exceptions 

a. Recuperation d'exceptions 

La gestion des exceptions donne la possibility de proteger un bloc de code contre les erreurs d'execution qui 
pourraient s'y produire. Le code dangereux doit etre place dans un blocTry End Try. Si une exception est declenchee 
dans ce bloc de code, Visual Basic regarde les instructionscatch qui suivent. S'il en existe une capable de traiter 
I'exception, le code correspondant est execute sinon la meme exception est declenchee pour eventuellement etre 
recuperee par un bloc Try End Try, de plus haut niveau. Une instruction Finaiiypermet de marquer un groupe 
destructions, executees avant la sortie du bloc Try, qu'une erreur se soit produite ou non. 

La syntaxe generale est done la suivante : 

Try 

Instructions dangereuses 
catch exceptionl 

code execute si une exception de type Exceptionl se produit 
catch exception2 

code execute si une exception de type Exceptionl se produit 
Finally 

code execute dans tous les cas avant la sortie du bloc Try 
End Try 

Cette structure a un fonctionnement tres similaire au select case deja etudie. Chaque type d'erreur est associe a 
une classe d'exception et lorsque cette erreur se produit, une instance de la classe exception correspondante est 
creee. Nous pourrons done determiner, pour chaque instruction catch, quel type d'exception elle doit traiter. 

La classe de base est la classe Exception a partir de laquelle est creee une multitude de sous-classes specialisees 
chacune pour un type d'erreur particulier. Voici la liste des classes derivant directement de la classe Exception. 

• Microsoft. Bui Id. Bui Id Engine. Internal LoggerException 

• Microsoft. Build. Build Engine. Invalid ProjectFileException 

• Microsoft. Bui Id. Framework. LoggerException 

• Microsoft. JScript.CmdLineException 

• Microsoft.JScript.ParserException 

• M icrosoft. Visual Basic. ApplicationServices 

• M icrosoft. Visua I Basic.ApplicationServices.NoStartupForm Exception 

• Microsoft. Visual Basic. CompilerServices.Incompletelnitialization 

• Microsoft. Visual Basic. CompilerServices. Internal ErrorException 
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• M icrosoft. Visual Basic. FilelO. Malformed LineException 

• M icrosoft. WindowsMobile. DirectX. DirectXException 

• System. ApplicationException 

• System. ComponentModel.Design.ExceptionCollection 

• System. Configuration. Provider. ProviderException 

• System. Configu ration. SettingsPropertyCannotBeSetForAnonymousUserException 

• System. Configu ration. SettingsPropertylsReadOnly Exception 

• System. Configu ration. SettingsPropertyNotFound Exception 

• System. Configu ration. SettingsPropertyWrongTypeException 

• System. DirectoryServices.ActiveDirectory.ActiveDirectoryObjectExistsException 

• System. DirectoryServices.ActiveDirectory.ActiveDirectoryObjectNotFound Exception 

• System. DirectoryServices.ActiveDirectory.ActiveDirectoryOperation Exception 

• System. DirectoryServices.ActiveDirectory.ActiveDirectoryServerDown Exception 

• System. DirectoryServices. Protocols. Directory Exception 

• System. 10. IsolatedStorage.IsolatedStorageException 

• System. Net. Mail. SmtpException 

• System. Runti me. Remoting.MetadataServices.SUDSGeneratorException 

• System. Runtime. Remoting.MetadataServices.SUDSParserException 

• System. System Exception 

• System. Web. Security. Mem bershipCreateUserException 

• System. Web. Security. Mem bershipPassword Exception 

• System. Web. UI.ViewStateException 

• System. Windows. Forms. AxHost. Invalid ActiveXStateException 

CS Cette liste ne presente que le premier niveau de la hierarchie. Chacune de ces classes a el le aussi de 
" nombreux descendants. 



Ces differentes classes sont utilisees pour indiquer dans chaque instruction catch le type d'exception qu'elle doit 
gerer. 



Private Sub OuvertureFichier ( ) 
Try 

My . Computer . FileSystem. OpenTextFileReader ( "a : \essai" ) 
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Catch ex As System . 10 . IOException 

MsgBox ( "erreur d'ouverture du fichier", MsgBoxStyle . OKOnly ) 
Finally 

MsgBox ("fin de la procedure d'ouverture de fichier") 
End Try 
End Sub 



Si, parmi tous les catch, aucun ne correspond a I'exception generee, I'exception est propagee dans le code des 
procedures ou fonctions appelantes, a la recherche d'une instruction catch capable de prendre en compte cette 
exception. Si aucun bloc n'est trouve, une erreur d'execution est declenchee. 

Les blocs catch peuvent egalement etre conditionnels, en ajoutant le mot When suivi d'une expression pouvant etre 
evaluee comme un Boolean. 

Catch ex As Exception When choix < 0 
Catch ex As Exception When choix > 10 
End Try 

Le bloc catch est alors execute si une exception de ce type est declenchee et si la condition est verifiee. 

Si le parametre indique a I'instruction catch est une classe "d'exception generale", cette instruction catch sera 
capable de capturer toutes les exceptions creees a partir de cette classe ou de ces sous-classes. Le code suivant 
nous permet done de capturer toutes les exceptions. 



Private Sub OuvertureFichier ( ) 
Try 

My . Computer . FileSystem. OpenTextFileReader ( "a : \essai" ) 
Catch ex As Exception 

MsgBox ( "erreur d'ouverture du fichier", MsgBoxStyle . OKOnly ) 
Finally 

MsgBox ("fin de la procedure d'ouverture de fichier") 
End Try 
End Sub 



Les differentes classes disposent des proprietes suivantes, nous permettant d'avoir plus d'informations sur I'origine 
de I'exception. 

Message 

Chaine de caracteres associee a I'exception. 

Source 

Nom de I'application qui a declenche I'exception. 

StackTrace 

Liste de toutes les methodes par lesquelles I'application est passee avant le declenchement de I'erreur. 

TargetSite 

Nom de la methode ayant declenche I'exception. 

InnerException 

Obtient I'exception originale, si deux exceptions sont declenchees en cascade. 

b. Creation et declenchement d'exceptions 

Les exceptions sont avant tout des classes, il est done possible de creer nos propres exceptions en heritant d'une 
des nombreuses classes d'exception deja disponibles. Pour respecter les conventions du Framework .Net, il est 
conseille de conserver le terme Exception dans le nom de la classe. Nous pouvons par exemple ecrire le code 
suivant : 



Public Class CaMarchePasException 
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Inherits Exception 
Public Sub New() 

End Sub 

Public Sub New(ByVal message As String) 

MyBase . New (message ) 
End Sub 

Public Sub New(ByVal message As String, ByVal inner As Exception) 

MyBase . New (message, inner) 
End Sub 
End Class 



Cette classe peut ensuite etre utilisee pour le declenchement d'une exception personnalisee. Le code suivant 
declenche une exception personnalisee dans un bloc catch. 



Catch ex As Exception 

Throw New CaMarchePasException ( "erreur dans 1' application" , ex) 
End Try 
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Les outils de debogage 



Dans le chapitre consacre a la gestion des erreurs, nous avons vu que les erreurs de logique sont les plus difficiles a 
eliminer d'une application. Heureusement, Visual Studio.NET nous propose de nombreux outils de debogage a la fois 
performants et simples a utiliser. lis permettent notamment de controler le deroulement de I'execution de I'application 
(en plagant des points d'arret et en faisant executer les instructions une par une), de visualiser et de modifier le contenu 
des variables, de visualiser le contenu de la memoire a un emplacement particulier, de verifier la liste de toutes les 
fonctions utilisees, etc. Ces differents outils sont accessibles par la barre d'outils Deboguer. 



Le menu Deboguer fournit egalement I'acces a de nombreux outils : 

Outils Fenetre Communaute ? 



Deboguer 





Fenetres 


► 


m 


Immediat 


Ctrl+G 


► 


Continuer 


F5 




Variables locales 


Ctrl+Alt+V, L 


JJ 


Interrompre tout 


Ctrl+Break 




Points d'arret 


Ctrl+Alt+B 


a 


Arreter le debogage 


Ctrl+Alt+Break 




5ortie 






Pas a pas detaille 


F8 




Automatique 


Ctrl+Alt+V, A 




Pas a pas principal 


Maj+FS 




Pi[e des appels 


Ctrl+L 




Pas a pas sortant 


Ctrl+Maj+F3 




Threads 


Ctrl+Alt+H 




Espion express,.. 


Maj+F9 




Espion 


► 




Exceptions... 


Ctrl+Alt+E 




Modules 


Ctrl+Alt+U 




Basculer le point d'arret 


F9 




Explorateur de scripts 




Nouveau point d'arret 


► 




Processus 


Ctrl+Alt+Z 


*> 


Supprimer tous les points d'arret 


Ctrl+Maj+F9 





En fonction de la configuration de I'environnement de Visual Studio, certains outils ne seront peut-etre pas disponibles. 
Vous pouvez reconfigurer Visual Studio pour integrer ces outils supplementaires par le menu Outils - Importation et 
exportation de para metres. Les differentes boites de dialogue vous proposent de sauvegarder votre environnement 
actuel avant de le modifier, puis de choisir un environnement type a importer. 



Assistant Importation, et exportation dc par a met res 



?J_xJ 



■ ■ 



Choisir upk collection deperamctres 5 importer 



SMftfle ccJleietiort <te p^rafliitres sg^^s-yous reporter > 



\£\ O Parametres par deFaut 



□ 



u% Parametres de devekppement generauK 
^ Parametrss dc dcvTekppcmenc Visual C# 

^ Parametres de devekppewefltvijiHJ C++- 

Parametree de dewtappernerit Visual 3# 
Parametres de devekjppernent Web 

Mec paf-ametr-M 

U^k CurrenlSetbn^s.-vTsettirigs 



Description ; 

Optimise If wwtartnemerit afin que vous. 
pvssiM- viXrt coft«erftrer suj la creation 
d'applicotiorrs^Fwut niveau. Get 
ensemble- da cararreti es content des 
parsortnaliEatiorK de ta disposition dsi 
fenftre*, des menus de cfflmr*and» et 
desraccourcrs davierpour rendrc tes 
commandes Visual tfasic cou^-tes plus 
accessiHes. 



Rorcoyir,,, 




£Precedet* 


Julvant > 






AcxiuSftr 
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Parmi les configurations disponibles, c'est la configuration Para metres de developpement generaux qui propose le plus 
de fonctionnalites. 

Apres cette importation, de nombreux outils supplementaires sont ajoutes au menu Deboguer : 

Outils Fenetre Communaute ? 



Deboguer 



Fenetres 



► Continuer 



JJ 



Interrompre tout 
Arreter le debogage 
Detacher tout 
Tout arreter 



F5 

Ctrl+Alt+Break 
Maj+F5 





Redemarrer 


Ctrl+Maj+F5 


a 


* 


Attacher au processus. . . 








Exceptions.., 


Ctrl+Alt+E 






Pas a pas detaille 


Fll 






Pas a pas principal 


F10 


-3 




Pas a pas sortant 


Maj+Fll 




id 


Espion express... 


Ctrl+Alt+Q 






Basculer le point d'arret 


F9 





Nouveau point d'arret 
Jj& Supprimer tous les points d'arret Ctrl+Maj+F9 
\J) Desactiver tous les points d'arret 



Points d'arret Ctrl+Alt+B 
Sortie 

Explorateur de scripts Ctrl+Alt+N 



Espion 
Automatique 
Variables locales 
Immediat 



Ctrl+Alt+V, A 
Ctrl+Alt+V, L 
Ctrl+Alt+I 



Pi[e des appels 
Threads 
Modules 
Processus 



Ctrl+Alt+C 
Ctrl+Alt+H 
Ctrl+Alt+U 
Ctrl+Alt+Z 



Memoire 
Code Machine 
Registres 



Ctrl+Alt+D 
Ctrl+Alt+G 



Pour les explications suivantes de ce chapitre, nous allons considerer que c'est cette configuration qui est utilisee dans 
Visual Studio. 



1. Controle de Texecution 

a. Demarrage de la solution 

Un projet dans Visual Studio peut etre dans trois etats distincts : 

• en conception 

• en execution 

• en mode arret (I'execution a ete interrompue). 

Le lancement de I'execution peut s'effectuer par la barre d'outils ou par le raccourci-clavier [F5] ou [Ctrl] [F5]. Si, c'est 
cette derniere solution qui est utilisee, I'application est lancee en mode normal et aucun outil de debogage n'est 
disponible. 



Deboguer 








ii ■ n 


❖ C? *J 


Hex 


3 - 



Demarrer le debogage 



Si la solution contient plusieurs projets, I'un d'entre eux doit etre configure comme projet de demarrage pour la 
solution. Ce projet doit egalement avoir un objet de demarrage configure, c'est par son execution que va debuter 
I'application. 



b. Arreter la solution 
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L'arret de I'application peut s'effectuer en fermant toutes les fenetres ; pour une application Windows, des que la 
derniere fenetre est fermee, I'application s'arrete ou par la combinaison de touches [Ctrl] c pour une application 
console. La barre d'outils ou le raccourci-clavier [Ctrl] [Alt] [Pause] permettent aussi d'arreter I'application. 



Deboguer 












ta 


❖ *I C" ^3 


Hex | ^ " 



Arreter le debogage 



Le raccourci [Shift] [F5] permet de relancer I'execution de la solution. 

c. Interrompre la solution 

L'interruption de I'execution s'effectue avec la combinaison de touches [Ctrl] [Pause] ou par la barre d'outils : 



Deboguer 






► 


JJ 


a La 


❖ Ql *3 


Hex 





Interrompre tout 



L'interruption se produit sur I'instruction suivant celle en cours d'execution au moment de la demande d'arret. La 
fenetre de code devient a nouveau visible avec un repere en face de la ligne ou I'execution s'est interrompue. 

Private 3 lib Bu.ttonl_eiiclcCB.YVal Bender Jls System ■ Object., ByVal -e As byatea . Event Handlea Buttonl. Click 
l>itn 1 InteQtC 
ror i ■ D TS iOOOOCiOO 

End. t-yti 

Cette methode n'est pas tres pratique car il faut avoir beaucoup de chance pour interrompre I'execution a un endroit 
precis. Nous verrons un peu plus loin que les points d'arrets sont une bien meilleure solution pour interrompre 
I'execution du code. 



d. Poursuivre I'execution 

Une fois en mode arret, nous avons de nombreuses possibilites pour continuer I'execution de I'application. 

La premiere possibility permet de reprendre I'execution normale de I'application en utilisant la meme technique que 
pour le demarrage du programme (barre d'outils ou raccourci-clavier [F5]). Cependant une technique plus courante 
lors d'un debogage est I'execution en pas a pas. 

Trois solutions sont disponibles : 

• Pas a pas detaille ([F8]) 

• Pas a pas principal ([Shift] [F8]) 

• Pas a pas sortant ([Ctrl] [Shift] [F8]) 

Le Pas a pas detaille et le Pas a pas principal different simplement par leur fagon de gerer les appels de procedures 
et fonctions. Si nous sommes en mode arret sur une ligne de code contenant un appel a une procedure ou une 
fonction, le mode Pas a pas detaille va permettre de rentrer dans le code de la fonction puis de lancer I'execution de 
son code ligne par ligne. Le mode Pas a pas principal executera la procedure ou la fonction en une seule fois sans 
que vous puissiez voir ce qui se passe a I'interieur de la procedure ou fonction. 
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2 Public Class Jorn-l 
Fciv-at 



e Sub cAloiiJ (DyVal jho? As Integer) 

nilta » JidJr. 1 2 

End Sub 



:-; 



Private Sub Succ-ddI C 1 left | B^Vnl sender As System. C-bjetc,, ByVal e As System-Ive-iricAEgali H-siid 3 e; E-u.ci.uiil . C 1 l ch 

&lm 1 As [HUfiHS 

roc i - □ td laaaccco 

rient 
End I 
•End Ciass 




PUb] it CI nag Foifltil 



Prtvace Sub eal c-uL (EyVfll tv-iia Aa Integer j 

Ead Sub 



•"QPiiblic Class Focal 



PrlVACi Sub Bu&G*nl_C 1 1th | EyVal sendei As System, 

Dies 1 JLs iDce^CT 

nee i ■ o Td tooooooo 

Etid Sub 
End Claaa 



i 



Prrrtic J5tf!b calcui LZJvVal n.um As lncege-cp 

SrtUha » film * J 

End Sub 



Private Sub E 11x1.0x1 1. C 3 tc k (EyVal seodec As Sysresa .Ctojecx. 
lim A As Integer 
Tor i - Q To 1DDDDDD3 
talttUl (1| 

he:tc 
E mi l 3** 
- CdJ Class 



Le Pas a pas sortant permet I'execution du code jusqu'a la fin d'une procedure ou fonction, sans decomposer ligne 
par ligne, puis repasse en mode arret sur la ligne suivant I'appel de la fonction. 



□ Public C lnaa Farm! 



Fcivace Sub calcui (ByVal nim As Inregerl 
num ■ nmri T IJ 

End Sub 

Private Sub Buctonl_Cl itfc (E^Val sendee As Svsteia ■ Ob J act 
Dim 1 A3 incegfeE 
Foe 1 ■ 0 To 10000000 
calcui (1] 

En.il Sub 
End Class 



~] Public Clans Forml 



Ctrl+Shift+FS 



Private Suds calcui (By Val mm As integer) 
End $Mb 



Pel vac a Sub Eufconl_Clltk(EyVal sender As System. Object, 
Z- in- i As Iiiieget 
for 1 - 0 To 10000000 
calcui ( i I 

End Sub 



Une derniere solution nous permet facilement d'executer un bloc de code puis de s'arreter sur une ligne specifique. 
Pour cela, un menu contextuel sur la fenetre de code nous offre la possibility de relancer I'execution jusqu'a 
remplacement du curseur, sans s'arreter sur toutes les instructions entre la ligne actuelle et la position du curseur 
(tres utile pour executer rapidement toutes les iterations d'une boucle). 
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3 Public Class Torrol 



I 



Private Eub calrul (UyVa.1 nun As Integer] 

KlUn ■" S iUfti ■ 4 

1'r, 3 £ufc 



Pe LVrt.cc 3ub Succi>rsl_C 1 icJc | ByVal sender As Syscew. Ctijec-c., 
t'im l As iDtegec 

ror i ■ □ To laaaaooo 
:r±Kt * i o 

Ofrrvsele.HriCrLlne ("tnlfcut t.e dpirte*] 
EDd Sub 
End Class 



Peivftc* 3ub 6«tteni_C 1 it* i ByVal fl«nd*r a* System, 
Pim 1 As iDtefler 

r*e i ■ o To iogggaoo 

aalcuMij 

Conso le . ^eriK* 1 *™* r ?n » m» t h*m^ e "] 



End 



Etid Sub 



Insert Sntoet,,, 



■J Ruj To Curse* 





Sot Meat 5W*m«* 










ft 









F L iv at e Sub calcul LEvVaL rjuih As IncegE-cJ 

nvjp ■ a Men + i 
End Sub 

Piivwi 3u0b Buete»-l_Cli-tfe(3pVfd f«ad*K &b 9yjn», 
Dim i As Integer 

r«f i ■ o T9 iooooQpD 
n^k- #i iQtnoooi 

JiOnBDle . Vc IteL ine | "rnlc u.1 tenr-iDe"") 
End Sub 



Inversement, si vous souhaitez ignorer I'execution d'un bloc de code ou au contraire a nouveau executer un bloc de 
code, il est possible de deplacer le point d'execution pour designer la prochaine instruction executee. II suffit de 
deplacer la fleche jaune affichee sur la marge en face de la prochaine instruction a executer. 

Z= Public £l-s.s5 Forml 

I 

Pr tvixQ sub siu^toti1_c 1 le* (»yv*i mulct JU ST«i»,cfc;jcc<; x BW*1 * As gysc^ - £ur*wv&) H^dies puce cm i .c u^k 

Diu a, As Inrege-r 
f « i ■ fl to lODDnnriQ 



(CM Ml b pi«rth4c#j pH^wt^q qui htA eAttotee, fft* (hV0ftr rrtSbutbM 4 fc?*euter ersuiCr, f a4e* gtewr li ffech*, L« c-ra^-icsr!: de telle operation j*r#. 
inipreywdfe-. 



Co-fwo 9 e - vr ituLi Ht 1 "cs Acta L e ije;tfij "I 
i ™ i ■ 5b 

End Liut 

- End Class 



ft Comme nous I'indique Microsoft, cette commande doit etre utilisee avec precaution. II faut notamment se 
^ souvenir des points suivants : les instructions situees entre I'ancien et le nouveau point d'execution ne seront 
pas executees, deplacer le point d'execution en arriere n'annule pas les instructions deja traitees et le point 
d'execution ne peut etre deplace qu'a I'interieur d'une fonction ou procedure. 



2. Points d'arret et TracePoint 

Nous avons vu que la solution pour passer en mode arret etait I'utilisation des touches [Ctrl] [Alt] [Pause]. Cette 
solution presente un gros inconvenient : I'execution s'arrete n'importe ou. Les points d'arret nous fournissent une 
solution plus elegante grace a laquelle nous pouvons choisir I'emplacement ou aura lieu I'interruption de I'execution. 

Les points d'arret peuvent aussi etre conditionnels. Differents types de conditions sont pris en charge pour leur 
activation (condition, nombre de passage...). 

Les TracePoint sont pratiquement identiques aux points d'arret mis a part que pour un TracePoint vous pouvez 
specifier Taction executee lorsque le point est atteint. Ce peut etre le passage en mode arret de I'application et/ou 
I'affichage d'un message. Les points d'arret ou les TracePoint sont affiches, dans I'environnement Visual Studio, par 
une serie d'icones. Les icones vides representent un element desactive. 

represente un point d'arret normal, active ou desactive. 
represente un point d'arret avance (condition, nombre de passage ou filtre). 



o 

Q0 




© ENI Editions - All rigths reserved 




represente un TracePoint normal, active ou desactive. 



represente un TracePoint avance (condition, nombre de passage ou filtre). 



represente un point d'arret ou un TracePoint en erreur. 



ft represente un avertissement sur un point d'arret ou un TracePoint. 



a. Placer un point d'arret 

Pour placer un point d'arret, de nombreuses possibilites sont disponibles : 

• effectuer un die sur la marge de la fenetre de code, 

• positionner le curseur sur la ligne correspondante et utiliser le raccourci-clavier [Ctrl] B, 

• utiliser I'option Point d'arret - Inserer un point d'arret du menu contextuel de la fenetre de code. 



Toutes ces techniques inserent le point d'arret et materialisent son emplacement par un point rouge dans la marge et 
le surlignement en rouge de la ligne correspondante. 



a 



Privace Sub Gut conl_C 1 ick ( EyUal sender As System- Cfcijecc, ByVaL e As Systera, Event Args) 
Dl» 1 As Ettteeret 
For i - G To 10000000 
m^iinw-jjinl 

NCKt 

Console . Wr i c eL i ne [ "ca lc ul teeoai ne n J 
End 3Ub 



Pour toutes ces solutions, le code doit etre visible dans I'editeur. L'option Interrompre a la fonction du menu 
Deboguer - Nouveau point d'arret permet de placer un point d'arret sur une procedure ou fonction en saisissant 
simplement son nom. 



Nouveau point d'arret 



Arreter I'execution lorsque le programme atteint cet emplacement dans une fonction. 



Fonction : 




Ligne : 
Caractere : 




[7 Utiliser IntelliSense pour verifier le nom de la fonction 

Langage : 






CS Attention, la boite de dialogue vous propose de preciser sur quelle ligne de la fonction vous souhaitez placer 
v un point d'arret mais cette fonctionnalite n'est pas disponible pour les points d'arret sur des fonctions. 



Les points d'arret ainsi places sont inconditionnels. Des que I'execution arrive sur cette ligne, I'application passe en 
mode arret. On peut perfectionner le fonctionnement des points d'arret en y ajoutant des conditions, un nombre de 
passage ou en le transformant en TracePoint. II convient pour cela de modifier les proprietes du point d'arret par le 
menu contextuel disponible par un die droit sur la ligne concernee par le point d'arret. 
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For i = 0 To 10000000 



calcul { test ( i ) ) 



J 5upprimer le point d'arret 
Desactiver le point d'arret 



| — 



Emp[acement... 



Condition... 



Ngmbre d'acces... 
Filtrer... 

Lorsqu'il est atteint... 



beL ine ( "calcul termine") 



Ajout d'une condition 

Le passage en mode arret peut etre soumis a condition. La boite de dialogue suivante permet de preciser les 
conditions d'execution du point d'arret. 



Condition de point d'arret 



Lorsque le programme arrive a I'emplacement du point d'arret, I'expression est 
evaluee et le point d'arret n'est atteint que si I'expression est vraie (true) ou a 
change. 

P" Condition : 
i mod 100 = 0| 

(* est true 
C" a change 





Nous devons saisir, dans cette boite de dialogue, une expression qui sera evaluee a chaque passage sur le point 
d'arret. L'execution s'arretera alors : 

• si le resultat de revaluation de la condition est vraie, 



• si le resultat de revaluation de la condition a ete modifie depuis le dernier passage sur ce point d'arret. A 

noter que, dans ce cas, au moins deux passages sont necessaires pour provoquer I'arret de I'application (le 
premier servant simplement a memoriser le resultat de I'expression). 



Modification du nombre de passages 



Les points d'arret sont egalement capables de compter le nombre de fois ou ils sont atteints et de s'executer pour un 
nombre particulier de passages. 




Nombre d'acces a un point d'arret 



Un point d'arret est atteint lorsque I'emplacement du point d'arret est atteint 
et que la condition est satisfaite, Le nombre d'acces est le nombre de fois ou 
le point d'arret a ete atteint. 



Lorsque le point d'arret est atteint : 



Js'arreter lorsque le nombre d'acces est un multiple de 
Nombre d'acces actuel : 0 

Reinitialiser 



| 1000| 




OK 



Annuler 



Cette boite de dialogue nous permet de definir le nombre de passages sur le point d'arret pour que celui-ci arrete 
effectivement I'application. Quatre options sont disponibles pour la condition d'arret sur le nombre de passages. 
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Lorsque le point d'arret est attaint : 



s'arreter lorsque le nombre d'acces est un multiple de 



toujours s'arreter 



is arreter lorsque le nombre d acces est un multiple de 



s'arreter lorsque le nombre d'acces est superieur ou egal a 




Attention, si une condition est indiquee pour le point d'arret, le nombre de passage correspond au nombre de fois ou 
I'execution de I'application est passee sur cette ligne avec la condition verifiee. Avec la configuration de notre 
exemple, nous nous arreterons dans la boucle au lOOOOOieme passage (la condition sera vraie pour 
1 = 0,100,200,300, 400,500,600,700,800,900). 



Filtrage 

Les filtres permettent d'ajouter des criteres supplementaires pour I'execution d'un point d'arret. Ces criteres portent 
sur le nom de la machine ou s'execute I'application, ainsi que le processus ou le thread. 




Filtre de point d'arret 



Vous pouvez limiter la definition d'un point d'arret a certains processus ou 
threads. Entrez une expression pour decrire I'emplacement du point d'arret ou 
effacez I'expression afin que le point d'arret soit defini dans tous les processus et 
threads. 

Entrez une ou plusieurs des clauses suivantes, Vous pouvez combiner les clauses 
a I'aide de & (AND), || (OR), ! (NOT) et de parentheses. 



MachineName = "ordinateur" 
Processld = 123 
ProcessName = "processus" 
Threadld = 123 
ThreadName = "thread" 




Filtre : 




La condition doit etre exprimee avec les mots des MachineName, Processld, ProcessName, Threadld, ThreadName 

et les operateurs & (et), 1 1 (ou), ! (not). 

Transformation en TracePoint 



Un point d'arret peut etre transforme en TracePoint en precisant une action particuliere a executer lorsqu'il sera 
atteint. 
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Lorsque le point d'arret est atteint 



Indiquer ce qu'il faut faire lorsque le point d'arret est atteint. 




^ Afficher un message : 



Vous pouvez inclure la valeur d'une variable ou d'une autre expression dans le 
message en le placant entre accolades, par exemple "La valeur de x est -[x}." 
Pour inserer une accolade, utilisez "\-[". Pour inserer une barre oblique, utilisez 

"\\". 

Les mots cles speciaux suivants seront remplaces par leurs valeurs actuelles : 
$ADDRE55 - Instruction actuelle, $CALLER - Nom de la fonction precedente, 
$CALLSTACK - Pile des appels, $FUNCTION - Nom de la fonction actuelle, 
$PID - ID de processus, $PNAME - Nom de processus 
$TID - ID de thread, |TNAME - Nom de thread 

Executer une macro : 



31 



Continuer I'execution 



OK 



Annuler 



Cette boite de dialogue attend le libelle du message affiche dans la fenetre de sortie lorsque le point d'arret est 
atteint. El le autorise egalement I'execution d'une macro. Pour que le point d'arret soit vraiment transforme en 
TracePoint, I'option Continuer I'execution doit etre activee. 



b. Activer, desactiver, supprimer un point d'arret 

Les points d'arret peuvent egalement etre momentanement desactives en utilisant le menu contextuel. 

^ 5upprimer le point d'arret 
Desactiver [e point d'arret 

Emp[acement... 
Condition... 
Nombre d'acces... 
Filtrer. . . 

Lorsqu'il est atteint... 



Le point d'arret peut ensuite etre a nouveau active en utilisant a nouveau le menu contextuel. Ce meme menu 
permet aussi la suppression d'un point d'arret, mais il est plus rapide d'effectuer un double die sur le point d'arret lui- 
meme. Le menu Deboguer propose egalement I'option Supprimer tous les points d'arret, evitant d'avoir a parcourir 
de nombreuses lignes de code pour eliminer I'ensemble des points d'arret. 

Pour nous faciliter la tache lors du debogage d'une application, une fenetre nous propose un recapitulatif de tous les 
points d'arret places dans votre projet. Cette fenetre est accessible par I'intermediaire du menu Deboguer - 
Fenetres - Points d'arret. Cette fenetre propose un menu contextuel permettant de realiser les principales actions 
sur un point d'arret. 
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Paints d'arrfc 



Nouveau T X 
Nonn 



X 




■ 


Aueinare le coop source 

Atieindre le cod& rnachjis 

1 1 mi\m II 1 I k 1 M M H H h III h 1 H 




Bmeliceiftent... 




Qwidition.r, 



0 J Module l,vbj I 

E3 J 



Nombre dTacces... 
Fitter, ■ h 

Lorsqu'il est attemt... 




Forrnl .vbj. ligne & caractere 13 



Sombre d'acces 



I . . toujour? arreter 
feucune condttL . . tou jours arreted 



0 J Fonctiorts^vb, ligne 6 caractere 9 (aucune conditi. . . tou jours arreter 



3 Points d'#r^C P) Sortie 



Contrairement a des versions plus anciennes de Visual Basic (version 6.0), les points d'arret sont conserves lorsque 
vous fermez votre projet. 



. Examen du contenu de variables 

L'interet du debogueur est de pouvoir suivre le fonctionnement de I'application au cours de son fonctionnement. II est 
egalement primordial de pouvoir visualiser, lorsque I'application est en mode arret, les valeurs contenues dans les 
differentes variables de I'application. Cette visualisation nous permet de verifier le resultat des traitements deja 
effectues ou d'anticiper sur les traitements effectues dans la suite du code. 



a. DataTips 



Les DataTips fournissent un moyen rapide pour visualiser le contenu d'une variable. II suffit de deplacer le curseur de 
la souris au-dessus du nom et apres, un court instant, une fenetre presentant le contenu de la variable s'affiche. Si la 
variable est un type complexe, une instance de classe par exemple, le DataTips propose un petit signe + permettant 
de descendre dans la structure de la variable. Les informations visualisees sont egalement modifiables directement 
dans le DataTips. Le DataTips disparait automatiquement lorsque la souris quitte sa surface. 



Private Sub B « woial_C iiek i B W« 1 jSesfuSetf As Spates*. Qtoj etc-, B&Val e As System. tventAr g-s) HsskU.< 

B "-^J -sender j {System. Wridows. Forms. Button} 



Dim i A? Integer 
far i - 0 Tn UOQMOQO 
c-aLcul (esse [if) 

CO rtS 0 It . V£ Ate LiidJC ^ "OA ItULl te Eirirte 1 " 
i " l " St 
End Sub 



I 



^ProdjctUerslori 
vReaesbng-iaridfe 

^Region 
•» Right 
^RlghtToLeft 

* Tab? top 
vText 

4^TgMtJrn3geR.^ti0n 
3fi Top 

M vTopLevelcontTol 



4 - ^.□.EOSIS.^' 

Res 

aifi 

NO{0> 

QWHlh = 176 l-fei^A = 72) 
0 

True 

Nbtrilra_ 
^ - 'Vai dsBgir 

Overlay {0} 

^hdowB ftp pllc3l^l.Fcrml> 



Pour afficher le resultat du calcul d'une expression, il convient au prealable de selectionner I'expression puis de placer 
le curseur de la souris sur la selection. Le debogueur evalue I'expression et affiche le resultat. Le DataTips ne peut 
afficher que les variables accessibles dans la portee courante (variables declarees dans la fonction ou Ton est arrete 
ou variables globales). 



C\ Une petite astuce, si vous souhaitez visualiser le code masque par le DataTips sans le faire disparaitre, vous 
" pouvez utiliser la touche [Ctrl] qui le rend transparent. 



b. Fenetre Automatique 
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La fenetre Automatique affiche les variables utilisees dans I'instruction courante dans les trois instructions 
precedentes et dans les trois instructions suivantes. Cette fenetre est accessible par le menu Deboguer - Fenetres - 
Automatique. 



Automatique 



Norm 




Valeur 



Type 




y ConsoleColor. Yellow 14 



choix 



Integer 



^ v String 



Automatique ^Variables locales |^ Espion 1 



Cette fenetre permet egalement la modification du contenu d'une variable en double cliquant sur la valeur, dans la 
fenetre, et en validant la modification, apres saisie par la touche [Entree]. L'application continuera a s'executer avec 
cette nouvelle valeur pour la variable. 



c. Fenetre Variables locales 



La fenetre Variables locales est accessible par le meme Deboguer - Fenetres - Variables locales et possede un 
fonctionnement identique a la fenetre Automatique mis a part qu'elle affiche toutes les variables dans la portee 
actuelle, c'est-a-dire les variables globales et les variables declarees dans la procedure ou fonction en cours 
d'execution. 



j uij : at iihi hub <t|i 
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Ind It 
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br* a ale. it ■ jftcfeercMCtiytte s^u* \<X StEShui |jj "jim") 
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€$044 Lo . Ud b LoL b no 4 Walrus naa trDU'.>i» n l 

¥nrL If 
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[a 




■ J i 













A Dans toutes ces fenetres, vous ne pouvez pas controler la liste des variables qui sont affichees puisque le 
^ debogueur en determine la liste, en fonction du contexte dans lequel se trouve votre application. II est parfois 
plus pratique de configurer manuellement la liste des variables et expressions a surveiller pendant le 
fonctionnement de ('application. 



d. Les fenetres Espion 

La fenetre Espion permet I'affichage des variables semblant interessantes pour le debogage de I'application. Cette 
fenetre ou plutot ces fenetres, puisque quatre fenetres Watch sont disponibles, sont affichees par le menu 
Deboguer - Fenetres - Espion puis Espion 1 a Espion 4. Nous devons ensuite configurer la fenetre en ajoutant les 
variables et expressions que nous souhaitons visualiser. En effectuant un double die dans la colonne Nom, vous 
pouvez saisir ce que vous souhaitez afficher dans la fenetre. Vous pouvez egalement effectuer un glisser-deplacer 
depuis la fenetre de code. Si vous saisissez un nom de variable complexe (une instance de classe par exemple), 
I'ensemble de ses proprietes est affiche dans la fenetre sous forme d'arborescence. 

Le contenu des variables ne sera affiche que si I'application est en mode arret sur une ligne de code ou cette variable 
peut etre utilisee. Par exemple, le contenu des variables locales a une procedure ou fonction n'est affiche que si le 
code est arrete dans cette procedure ou fonction. 
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Dans le cas contraire, la fenetre Espion nous indique simplement que cette variable n'est pas declaree dans la 
portion de code ou nous nous trouvons, en I'affichant en caracteres grises. 




Dans cet exemple, les variables sont declarees dans une autre procedure que celle ou se trouve le pointeur 
d'execution. 

Comme pour les autres fenetres, le contenu de la variable peut etre modifie en double cliquant dessus pour passer 
en mode edition et en validant la saisie par la touche [Entree]. 



e. La fenetre Espion express 

La fenetre Espion express propose le meme principe de fonctionnement et est accessible par le menu Deboguer - 
Espion express. Dans ce cas, la variable ou I'expression sur laquelle se trouve le curseur est affichee dans la fenetre 
Espion express. Cette fenetre etant modale, vous devrez obligatoirement la fermer avant de poursuivre le debogage 
de votre application. 



Espion express 



Expression : 



Valour : 




JnJxJ 



Reevaluer 



Ajouter un espion 



Norn 


Valeur 


Type 


E 


3 * 


s 


-[Length=5)- 


String() 




<* (0) 


"un" 




String 




# (i) 






String 




# (2) 


,! trois" 




String 




— • (3) 


"quatre" 


t String 




■/ (4) 


"cinq" 


^ String 



Fermer 



Aide 



Le bouton Ajouter un espion permet d'ajouter rapidement I'expression dans la fenetre Espion pour pouvoir I'etudier 
dans la suite du debogage. 



4. Les autres fenetres de debogage 

De nombreuses autres fenetres sont disponibles pour le debogage mais certaines ne sont pas vraiment utiles pour le 
developpement d'applications avec Visual Basic. Elles sont plutot reservees pour le test d'applications developpees 
avec d'autres langages, C++ par exemple. 

II s'agit, par exemple, de la fenetre memoire permettant la visualisation du contenu d'une zone memoire dont on 
connait I'adresse. 
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Code iiazhhs 



I |-^On^ppflboLt 



char H[]-"tcst cpp< 

- QfrQOlff 4b0 "best cpp' 



aboutDlg-DoHodal () ; 



Si vous le desirez, vous pouvez visualiser le code machine correspondant aux instructions VB.NET. 



Adresse Windows Application^ Form20. Button 1 ^ 




□□□□□□Of nop 

For i = 0 To 
□□□□□□10 xor 



□□□□□□12 
□□□□□□14 
□□□□□□16 
□□□□□□IS 
□□□□□□le 



calcul ( i ) 

IflOV 



ItiuV 
cmp 
call 
nop 
Next 
□□□□□□If nop 
□□□□□□20 
□□□□□□23 
□□□□□□25 
□□□□□□27 
□□□□□□2c 



add 
j no 
xor 
call 
cmp 



1000000 
esi^esi 

edx, esi 
ecx, edi 

dword ptr [ecx],ecx 
dword ptr ds : [032C566Ch] 



esi, 1 
□□□□□□2C 
ecx, ecx 
5D06DC39 
esi,0F4240h 
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Autres techniques de debogage 



La compilation conditionnelle 

Vous pouvez utiliser la compilation conditionnelle pour specifier des portions de code qui seront ou non compilees, en 
fonction de la valeur d'une constante que vous aurez au prealable definie. Par exemple, vous pouvez tester plusieurs 
solutions pour resoudre un probleme, en utilisant plusieurs algorithmes et verifier le plus efficace d'entre eux. 

Le bloc de code dont la compilation est soumise a condition doit etre encadre par les instructions #if condition Then et 
#endif en fonction de la valeur de la condition, le bloc de code sera ou non compile. II faut bien sur que la ou les 
variables utilisees dans la condition soi(en)t initialisee(s) avant son apparition dans une instruction #if . 



Private Sub Buttonl_Click (ByVal sender As System. Ob ject, ByVal e 
As System . EventArgs ) Handles Buttonl . Click 

Dim i As Integer 
#Const version = 2 
#If version = 1 Then 

For i = 0 To 1000000 
calcul ( i ) 

Next 

#End If 

#If version = 2 Then 

Do While i < 100000 
calcul ( i ) 
i = i + 1 

Loop 

#End If 
End Sub 



Les constantes peuvent etre declarees avec I'instruction #const, comme dans I'exemple ci-dessus, ou encore dans les 
proprietes du projet. 



Parameter avarices du 



Optimisations 




] Suppr irner BeS cojitrofes de depassement air les entiers ] Actrver Bes Gpiimisatiorii 



Adresse da base de la DLL 3 
£ene rer des infos de debooage : 



C<?nstante& de cpmplation 



&HQ04QGCQQ 



Fun 



v. D£f inir la constante DEBUG 



E Def inir la constante TCACE 



Constantes personnatsees : 



Versions 



E*emplt : Namel """Value I " J Mamc£-"Value2" J Wame3= l Values" 

Genlrer des assemhlys de- seriafisatron : 

Auto 



Units centre ofele : 
AnyCPU 



Framtworktihle (idutes Its configurations) ; 
■ NET FrafflcyjOrk 3,5 



ok 



■finnruler 



C\ Attention cependant, car les constantes declarees avec ces deux methodes ne sont utilisables que pour la 
^ compilation conditionnelle et ne sont pas accessibles dans le code. 



System. Console . WriteLine (Version) 



'Version' est un type et ne peut pas etre utilise en tant qu'expression. 
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Utilisation de la classe Debug 



La classe Debug dispose de plusieurs methodes statiques, done utilisables sans avoir a creer d'instance de la classe 
nous permettant d'inserer dans le code des instructions afin de suivre le deroulement de I'application. 

Avec la methode assert, vous affirmez que, lorsque cette ligne de code sera executee, la condition specifiee dans la 
methode sera vraie. 



Debug . Assert (y <> 5) 



Si la condition est fausse, Visual Basic affiche une boite de dialogue resumant la situation. 



Echec de ('assertion : Abandonner=Quitter p Reessayer=Deboguer p Ignorer =Continuer 




at fcmctionGenerique.nnain() E:\livre vb.net 2005\Programmation 
objet\exemples\TestClassePersonne\TestClassePersonne\fonctionGenerique.vb(22) 
at AppDomain.nExecute Assembly^ Assembly assembly^ String[] args) 

at AppDomain, Execute Assembly(String assembly-File, Evidence assemblySecurity, String[] args) 
at HostPrcic.RunUsers Assembly () 
at ThreadHelper.Thread5tart_Context(Object state) 

at ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback Object state) 
at ThreadHelper.Thread5tart() 



Abandons | Recommence, | 



Ignorer 



Cette boite de dialogue propose trois solutions pour continuer : 
Abandonner 

Arrete I'execution de I'application. 



Recommencer 

L 'application passe en mode arret sur la ligne contenant 1'instruction Assert, permettant ainsi d'essayer d'analyser la 
situation. 



Ignorer 

L 'execution de I'application continue normalement. 

La methode Fail est plus radicale, puisqu'elle provoque I'affichage de la meme boite de dialogue, mais sans aucune 
condition. El le peut etre utilisee par exemple dans un bloc Try End Try. 



Try 

z = 1 / x 
Catch ex As Exception 

Debug . Fail ( "division par zero") 
End Try 

Les methodes write et writeLine permettent de suivre revolution d'une expression sans que Tapplication passe en 
mode arret. L'instruction affichera, dans la fenetre de sortie, le resultat de revaluation de I'expression. 

Les methodes indent et unindent formatent I'affichage dans la fenetre Sortie. 

Debug . WriteLine ( "debut de la boucle") 
Debug . Indent ( ) 
For x = 1 To 5 

Debug . WriteLine ( "passage n" & x) 

Next 

Debug . Unindent ( ) 
Debug . WriteLine (" fin de la boucle") 



Le resultat suivant est obtenu dans la fenetre de sortie : 
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Les differents types d'application 



Les applications Windows sont basees sur une ou plusieurs fenetres constituant I'interface entre I'utilisateur et 
rapplication. Pour developper ce type d'application, nous avons a notre disposition dans le Framework.NET un ensemble 
de classes permettant la conception de I'interface de 1'application. Ces elements sont frequemment regroupes sous le 
terme Technologie Windows Forms. Une application basee sur les Windows Forms utilisera un ou plusieurs formulaires 
pour construire I'interface utilisateur de 1'application. Sur ces formulaires (ou feuilles), nous placerons des controles afin 
de definir exactement I'aspect de I'interface de 1'application. Les formulaires seront crees a partir de classes du 
Framework.NET que Ton specialises par I'ajout de fonctionnalites. Le formulaire ainsi cree etant lui-meme une classe, il 
sera possible de le reutiliser, dans une autre application, en lui ajoutant des fonctionnalites supplementaires par une 
relation d'heritage. Les Windows Forms peuvent etre crees directement par le code mais I'environnement de 
developpement Visual Studio propose toute une panoplie d'outils graphiques pour nous faciliter la tache. Nous 
utiliserons principalement cette technique. 



1. Modes de presentation des fenetres 

Dans une application Windows, trois styles de presentation sont disponibles pour les fenetres de 1'application. 



a. Interface mono document (SDI) 

Une seule fenetre est disponible dans 1'application. Pour pouvoir ouvrir un nouveau document, le document actif de 
1'application doit obligatoirement etre ferme. Le bloc-notes de Windows est une application SDI. 



^ AUTOEXEC.C - Bloc-notes 



Fichier Edition Format ? 




path c:\dos 

rem mtm atari cd-rom 

M5CDEX.EXE /DIMTMIDE01 /Ml 10 

rem MTM ATARI CD-ROM 

smartdrv 4096 4096 
keyb f r , , c :\dos\keyboard. sys 




b. Interface multidocuments (MDI) 

L'application est constitute d'une fenetre principale (la fenetre mere) dans laquelle vont apparaitre plusieurs fenetres 
(fenetres filles) contenant les documents sur lesquels vous souhaitez travailler. En regie generale, ce type 
□"application dispose d'un menu permettant la reorganisation des differentes fenetres filles. Ce type de presentation 
est utilise par la plupart des applications bureautiques. 
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c. Interface de style explorateur 



© ENI Editions - All rigths reserved 



- 1 - 



it\ SQL Server Enterprise Manage* 



JULiSl 



Racine de la c on so Ee\S er ve tms Microsoft SflL\Crcnipe ^QL 5crvei?\(lDcal) (Windows WT)\3ases de donmeos^rvorth 1 




£cr.bn Aff Icjjaos 


Outfs ^ # 


1 Sljffil 


>< iff 0 


HI 


[f I 


j ^ 







I ftaone de la conso'e 

:-: f=J <Sroupc SQL Server 
□ 5b fl 0 ^ (Windows NT) 
S CJ Ssse* <ie donnccs 
* .J niistc: - 
E-fl TOdtl 
g-Q rnsdb 

S-g QSEt 

E- (j) temp* 
SlQ PaSaTr4flsfttrn4ti0ft5er«cef 
@) Cj Gsstwn 
S ^ Rotation 
S CJ Sewite 
>j Serwces support 
I*: L_|Mrto Date Services 



Nfiftrftsind LI ^l^Aents 



Oagrermnes 



Tables 
Par defaur. 



6V 




Procedures 
stockees 



Typas de 
dome,.. 



m 

Fandtons 
deFniss ... 



Catalogues de 
texte Integral 



Ce style d'interface se developpe de plus en plus au detriment des deux autres. Dans ce cas, la fenetre est divisee 
en deux zones. La zone de gauche presente une vue, sous forme d'arborescence, des elements pouvant etre 
manipules par I'application. La zone de droite presente I'element selectionne dans I'arborescence et permet sa 
modification. De nombreux outils d'administration utilisent cette presentation. 
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Les fenetres dans VB.NET 



Lorsque vous commencez une nouvelle application Windows Forms, I'environnement de developpement ajoute 
automatiquement au projet un formulaire. Ce formulaire sert de point de depart pour I'application. Vous pouvez 
immediatement lancer I'execution de la solution et tout fonctionne. Certes, I'application ne permet pas d'effectuer grand- 
chose, mais elle a toutes les fonctionnalites d'une application Windows et, cela, sans ecrire une seule ligne de code. En 
fait, il existe bien du code correspondant a cette application mais il a ete genere automatiquement par Visual Studio. 
Comme ce code ne doit jamais etre modifie manuellement, l es f ichiers le contenant sont masques dans I'explorateur de 

solutions. Pour les afficher, vous pouvez utiliser le bouton jfi de la barre d'outils de I'explorateur de solutions. Vous 



pouvez alors constater que de nombreux fichiers existent deja dans le projet. Les fichiers reserves de Visual Studio ont 
tous I'extension . designer. vb. Vous pouvez bien sur visualiser le contenu de ces fichiers. 

Voici par exemple le contenu du fichier Application. designer. vb. 



< auto-gene rat ed> 

This code was generated by a tool. 
Runtime Version : 2 . 0 . 50727 . 1433 



Changes to this file may cause incorrect behavior and will be lost if 
the code is regenerated. 
</ auto-generated> 



Option Strict On 
Option Explicit On 



Namespace My 

NOTE: This file is auto-generated; do not modify it directly. To make changes, 
or if you encounter build errors in this file, go to the Project Designer 
(go to Project Properties or double-click the My Project node in 
Solution Explorer), and make changes on the Application tab. 

Partial Friend Class MyApplication 

<Global . System . Diagnostics . Debugger St epThroughAt tribute ( ) > _ 
Public Sub New() 

MyBase . New (Global .Microsoft . VisualBasic . ApplicationServices . AuthenticationMode . Windows ) 

Me . IsSinglelnstance = false 
Me . EnableVisualStyles = true 
Me . SaveMySettingsOnExit = true 
Me . ShutDownStyle = 

Global .Microsoft . VisualBasic . ApplicationServices . ShutdownMode . Af terMainFormCloses 
End Sub 

<Global . System . Diagnostics . Debugger St epThroughAt tribute ( ) > _ 
Protected Overrides Sub OnCreateMainForm ( ) 

Me.MainForm = Global . WindowsApplicationl . Forml 
End Sub 
End Class 
End Namespace 



Les commentaires places dans ce fichier sont suffisamment clairs : ne jamais modifier ce fichier manuellement ! II est mis 
a jour automatiquement a chaque modification des proprietes du projet. Le deuxieme fichier, mis a jour 
automatiquement, est associe a la fenetre de I'application. Dans notre premiere application, il est nomme 
forml. designer. vb. II va contenir la description de toutes les actions, traduites en code VB, que vous allez realiser pour 
personnaliser les caracteristiques de la fenetre. 

Regardons le contenu de ce fichier : 



<Global .Microsoft . VisualBasic . CompilerServices . Designer Gene rated ( ) > _ 
Partial Class Forml 

Inherits System . Windows . Forms .Form 

'Form overrides dispose to clean up the component list. 
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< System .Diagnostics . DebuggerNonUserCode ( ) > _ 
Protected Overrides Sub Dispose (ByVal disposing As Boolean) 
Try 

If disposing AndAlso components IsNot Nothing Then 

components . Dispose ( ) 
End If 
Finally 

MyBase . Dispose (disposing) 
End Try 
End Sub 

'Required by the Windows Form Designer 

Private components As System . ComponentModel . IContainer 

'NOTE: The following procedure is required by the Windows Form Designer 
'It can be modified using the Windows Form Designer. 
'Do not modify it using the code editor. 

< System .Diagnostics . Debugger St epThrough ( ) > _ 

Private Sub InitializeComponent ( ) 

components = New System . ComponentModel . Container ( ) 

Me . AutoScaleMode = System . Windows . Forms . AutoScaleMode . Font 

Me. Text = "Forml" 

End Sub 



II contient la definition de la classe correspondant a la fenetre heritant de la classe system, windows .Forms .Form. Cette 
definition comporte une petite particularity par rapport a la definition d'une classe telle que nous I'avons vue dans le 
chapitre consacre a la programmation objet. Le mot cle Partial est specifie devant le nom de la classe. Ce mot cle 
indique au compilateur que le fichier ne contient qu'une partie de la definition de la classe, I'autre partie etant disponible 
dans le fichier Forml. vb. Cette technique permet de repartir les roles : 

• Visual Studio se charge de generer, dans le fichier forml. designer. vb, le code correspondant a la 
personnalisation de I'aspect de la fenetre. 

• Vous etes responsable du code, contenu dans le fichier forml. vb, charge de la personnalisation du 
fonctionnement de la fenetre. 

Cette solution limite les risques de modification involontaire de la partie de code reservee a Visual Studio. L'element le 
plus important est constitue par la methode InitializeComponent. Cette methode est appelee automatiquement a la 
creation d'une instance de la fenetre, lors de I'appel du constructeur. Pour vous en convaincre, vous pouvez ajouter un 
constructeur par defaut dans le fichier Forml. vb et constater que Visual Studio le transforme automatiquement en y 
ajoutant un appel a cette methode. 



Public Class Forml 




Public Sub New() 




A This call is required by the 


Windows Form Designer. 


InitializeComponent () 




A Add any initialization after 


the InitializeComponent ( ) call. 


End Sub 





Par contre, si vous ajoutez un constructeur surcharge, vous etes responsable de cet appel. Le plus simple dans ce cas 
etant de faire appel au constructeur, par defaut, a la premiere ligne de votre constructeur surcharge. 



Public Sub New(ByVal i As Integer) 

MyClass .New ( ) 
End Sub 



C\ Pensez egalement a bien respecter, dans le constructeur par defaut, ('emplacement qui vous est reserve pour vos 
" initialisations particulieres. Si elles sont placees avant I'appel a la methode InitializeComponent, celui-ci risque de 
les modifier. Avant I'appel de la methode InitializeComponent les elements graphiques de la fenetre ne sont pas 
disponibles car c'est le role principal de cette methode de les creer et d'initialiser certaines de leurs proprietes. 



Une methode dispose est egalement creee pour pouvoir supprimer tous les objets instancies par la classe. Cette 
methode commence par supprimer les objets crees puis elle appelle la methode dispose de la classe parente. 



'Form overrides dispose to clean up the component list. 
< System .Diagnostics . DebuggerNonUserCode ( ) > _ 
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Protected Overrides Sub Dispose (ByVal disposing As Boolean) 
If disposing AndAlso components IsNot Nothing Then 

components . Dispose ( ) 
End If 

MyBase . Dispose (disposing) 
End Sub 



Nous avons fait le tour du code genere automatiquement. Regardons maintenant comment modifier I'apparence et le 
comportement de notre fenetre par I'intermediaire de ces proprietes. 



1. Dimension et position des fenetres 



La position de la feuille sur I'ecran (ou sur son conteneur) est modifiee par la propriete location. Cette propriete est 
une structure composee de deux membres, indiquant les coordonnees du coin superieur gauche de la feuille par 
rapport au coin superieur gauche de I'ecran. Les membres de cette structure peuvent etre modifies dans la fenetre de 
proprietes de vb. En fait, lorsque vous modifiez des proprietes, du code est ajoute pour prendre en compte vos 
modifications. Par exemple, si nous voulons que notre fenetre apparaisse aux coordonnees 100 100, nous modifions la 

propriete Location. 



□ 





Localizable 


j: 

False 


Location 


100; 100 j 




100 j 


5 


100 f 



Si nous regardons dans le code, nous retrouvons la modification de notre propriete. 

Me. Location = New System . Drawing . Point ( 1 0 0 , 100) 

Les dimensions de la fenetre sont modifiables par la propriete size qui contient deux membres width et Height 
indiquant la largeur et la hauteur de la fenetre. 

Resumons tout cela par un petit schema : 




Les unites sont des pixels, pour toutes les proprietes, concernant les dimensions et positions d'objet. Les proprietes 
Left, Top, Height et width sont disponibles dans le code mais pas dans la fenetre de proprietes. La correspondance 
avec les proprietes Location et size de ces proprietes est indiquee entre parentheses sur le schema. 

Ces proprietes sont mises a jour pendant I'execution de I'application, si la fenetre est deplacee ou redimensionnee. 
Elles sont accessibles par le code de I'application. 

La largeur et la hauteur de la fenetre peuvent evoluer entre les limites fixees par les proprietes Minimumsize et 
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Maximumsize. Par defaut ces deux proprieties sont initialisers a 0 ; 0 indiquant, dans ce cas, qu'il n'y a pas de limite 
fixee pour la taille de la fenetre. 

Deux autres proprieties indiquent le comportement de la fenetre au demarrage de I'application. 

La propriete startPosition permet d'imposer une position a la fenetre, au demarrage de I'application. Les valeurs 
possibles sont resumees dans le tableau suivant : 



Valeur de la propriete 


Effet sur la fenetre 


Manual 


Les proprietes Location et size sont utilisees pour 
I'affichage de la fenetre. 


CenterParent 


La fenetre est centree dans la fenetre mere. 


CenterScreen 


La fenetre est centree sur I'ecran. 


WindowsDefaultLocation 


Le systeme positionne automatiquement les fenetres 
en partant du coin superieur gauche de I'ecran. Les 
fenetres sont decalees vers le bas droit de I'ecran a 
chaque affichage d'une nouvelle fenetre. La taille de 
chaque fenetre est specifiee par la propriete size. 


WindowsDefaultBounds 


Meme principe que ci-dessus, mais la taille est 
determinee par le systeme a I'affichage de la fenetre. 



La propriete windowstate indique I'etat de la feuille. Les trois valeurs possibles sont : 



Valeur de la propriete 


Etat de la fenetre 


Normal 


Taille definie par la propriete size. 


Minimized 


Fenetre en icone sur la barre des taches. 


Maximized 


Fenetre en plein ecran. 



Ces proprietes peuvent, bien sur, etre modifiees par le code de I'application. Par contre, il est plus efficace d'utiliser les 
methodes setLocation et setsize qui permettent directement le dimensionnement et le positionnement de la feuille. 
L'utilisation de ces methodes ou la manipulation directe des proprietes declenchent les evenements Resize et Move sur 
la feuille correspondante. 

Le code suivant nous permet de suivre la position et la dimension de la feuille : 



Private Sub Forml_Resize (ByVal sender As Object, ByVal e As System. Event 
Args) Handles MyBase . Resize 

System . Console . WriteLine ( " Ma largeur : " & Me . Size . Width) 
System . Console . WriteLine ( " Ma hauteur : " & Me . Size . Height ) 
End Sub 

Private Sub Forml_Move (ByVal sender As Object, ByVal e As System . EventArgs ) 

Handles MyBase. Move 
System . Console . WriteLine ( " Je suis a la position X :" & Me . Location . X ) 
System . Console . Writeline ( " Je suis a la position Y :" & Me . Location . Y) 
End Sub 



Nous obtenons les informations suivantes : 



Je suis a la position X 
Je suis a la position Y 
Ma largeur : 364 
Ma hauteur : 122 



: 263 
: 311 



Une petite curiosite pour terminer 
cliquant sur le bouton Red u ire 




avec la taille et position des fenetres. Si nous reduisons notre fenetre en icone, en 
ou en modifiant la propriete windowstate, nous obtenons les valeurs suivantes : 



Je suis a la position X :-32000 
Je suis a la position Y :-32000 
Ma largeur : 160 
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Ma hauteur : 24 

Les positions X et Y de la feuille sont bien des valeurs negatives ! En fait, vous pouvez utiliser des valeurs comprises 
dans la limite de celles acceptables pour un entier. Seule la partie de votre fenetre comprise entre zero et la largeur et 
hauteur de votre ecran sera visible. Vous pouvez d'ailleurs utiliser la methode GetBounds de I'objet screen pour obtenir 
la taille de I'ecran. 



Private Sub Forml_Move (ByVal sender As Object, ByVal e As System . EventArgs ) 
Handles MyBase.Move 

System . Console . WriteLine ( " Je suis a la position X :" & Me . Location . X) 
System . Console . WriteLine ( " Je suis a la position Y :" & Me . Location . Y) 
System . Console . Write ( " sur un ecran de :" & Screen . GetBounds (Me) . Size . Width) 
System . Console . WriteLine ( " par " & Screen . GetBounds (Me ). Size . Height ) 
End Sub 



Ce code nous permet de connaitre la dimension de I'ecran qui affiche I'application. 

Je suis a la position X : 115 
Je suis a la position Y : 203 
sur un ecran de : 1024 par 768 

Pour que I'utilisateur puisse deplacer ou modifier la taille de la fenetre, il doit disposer des outils necessaires : 

• une barre de titre pour pouvoir agripper la fenetre et la deplacer ; 

• une bordure pour pouvoir la dimensionner ; 

• des boutons pour pouvoir I'agrandir, la reduire et I'afficher avec sa taille normale. 

Pour pouvoir redimensionner la fenetre, celle ci doit disposer d'une bordure de type "sizable" affectee a sa propriete 

FormBorder Style. 

Pour etre deplacee, une fenetre doit avoir une barre de titre. Cette barre de titre peut etre masquee par la propriete 
controiBox positionnee sur False ; dans ce cas, meme le titre de la fenetre specifie par la propriete Text n'est plus 
affiche. Dans le cas ou la barre de titre est affichee, I'etat des differents boutons apparaissant dessus peut etre 
controle avec les proprietes suivantes : 

MinimizeBox 

Affichage ou non du bouton de mise en icone de la fenetre. 

MaximizeBox 

Affichage ou non du bouton d'agrandissement de la fenetre. 

HelpButton 

Affichage du bouton d'aide. Visible seulement si les deux boutons precedents ne sont pas visibles. 

2. Couleurs et Police utilisees sur les fenetres 

La propriete BackCoior indique la couleur de fond utilisee sur la fenetre. Cette couleur sera egalement utilisee pour 
tous les controles qui seront, par la suite, places sur la feuille. La propriete ForeCoior indique la couleur des elements 
qui seront traces directement sur la feuille ou la couleur de la legende des controles places sur cette feuille. II existe 
quatre possibilites pour affecter une valeur a ces proprietes de couleur : 

• par la fenetre de proprietes, en choisissant une couleur dans I'onglet Personnaliser. 

• par la fenetre de proprietes, en choisissant une couleur web. Ces couleurs correspondent aux couleurs 
disponibles en langage HTML. 

• par la fenetre de proprietes, en choisissant une couleur systeme. Dans ce cas, votre application s'adaptera 

automatiquement a I'environnement du poste de travail sur lequel elle est installee. Si I'utilisateur a configure 
son poste pour avoir des boutons de couleur rose fluo, il retrouvera la meme apparence dans votre application. 
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• En fabriquant vous-meme votre couleur avec un peu de rouge, un peu de vert, un peu de bleu. Pour melanger 
tout cela et obtenir la couleur finale, utilisez la methodeFromARGB qui prend comme parametre la quantite de 
rouge, la quantite de vert, la quantite de bleu et fournit la couleur resultante. Les quantites de chaque couleur 
sont des valeurs comprises entre 0 et 255, cette derniere valeur correspondant a une couleur pure. 

La propriete opacity permet de regler la transparence de votre feuille. La valeur doit etre comprise entre zero (fenetre 
transparente) et un (fenetre opaque). Attention, cette propriete ne sera prise en compte que sur certains systemes 
(Windows 2000, Windows XP, Windows 2003, Vista). Vous pouvez egalement faire de la tapisserie en indiquant une 
image de fond pour votre fenetre avec la propriete Backgroundimage. Si I'image n'est pas assez grande pour couvrir la 
fenetre, elle est reproduite en mosai'que. 

De la meme maniere, vous pouvez specifier qu'une couleur sera consideree transparente sur votre fenetre. Pour cela, 
vous devez affecter a la propriete TransparencyKey la valeur de cette couleur. 

Pour illustrer I'uti lisation peu evidente de cette propriete, nous avons indique dans la fenetre ci-dessous que la couleur 
blanche etait transparente (on apergoit une partie de la fenetre de proprietes a travers la zone de texte). 




La propriete Font permet de specifier les caracteristiques de la police de caracteres, utilisee pour I'affichage de texte, 
directement sur la fenetre. Cette police sera egalement utilisee pour tous les controles que Ton placera sur la fenetre. 
Vous pouvez modifier les proprietes directement dans la fenetre de propriete, en deroulant la propriete Font en 
cliquant sur le signe plus ( + ) en face de la propriete. 




Vous pouvez egalement modifier les caracteristiques de la police avec la boite de dialogue standard de choix de police. 
Celle-ci est affichee en utilisant le bouton _»J , en regard de la propriete Font dans la fenetre de proprietes. 
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Police 



Police 



S 



? Arial 



f) Arial Black 
f) Arial Narrow 
"4 1 Arial Narrow Special G 
^ Arial Narrow Special G 
0 Arial Rounded MT Bok 
5? Arial Special G1 




-Effets- 
Barre 
Souligne 





3. Les fenetres MDI 



Les applications MDI sont constitutes de deux types de feuilles : 



• les feuilles meres, 



• les feuilles filles. 



Dans VB.NET, la meme classe de base est utilisee pour les deux types de fenetre. Dans le premier cas, on indiquera 
simplement le fait que la fenetre est une fenetre mere MDI en positionnant surTrue sa propriete isMdiContainer. Pour 
ajouter ensuite une fenetre fille, il convient bien sur d'abord de creer la fenetre puis de I'associer a une fenetre mere 
par sa propriete MdiParent. 

Voici un code qui cree trois fenetres et les transforme en fenetres filles MDI : 



Dim fenetrel As Form 
Dim fenetre2 As Form 
Dim fenetre3 As Form 



fenetrel = New Form() 

fenetrel . Text = "fenetre 1" 

fenetrel . MdiParent = Me 

fenetrel . Show ( ) 

fenetre2 = New Form() 

f enetre2 . Text = "fenetre 2" 

fenetre2 . MdiParent = Me 

f enetre2 . Show ( ) 

fenetre3 = New Form() 

f enetre3 . Text = "fenetre 3" 

fenetre3 . MdiParent = Me 

f enetre3 . Show ( ) 
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Pour obtenir des fenetres filles bien rangees dans leur fenetre mere, vous pouvez faire appel a la methode LayoutMdi 
en lui passant comme parametre Tune des constantes predefinies de remuneration MdiLayout : 



Me . LayoutMdi (MdiLayout . TileHorizontal ) 




Me . LayoutMdi (MdiLayout . TileVertical ) 
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1 0*9 Fenetre mere 






nl x 
i 1 1 ^ 




hg fenetre 2 F~F~F~ 


1 fenetre 1 ■ | | 





















Me . LayoutMdi (MdiLayout . Cascade) 




CS Ces differentes methodes sont, en general, appelees par un menu de I'application qui fournit la liste des 
" fenetres ouvertes dans Tapplication. Nous verrons comment mettre cela en ceuvre dans la section consacree aux 
menus. 



Pour illustrer une autre manipulation possible des fenetres MDI, nous allons les utiliser pour realiser une application de 
style Explorateur. Voici ci-dessous I'aspect general de Tapplication. 
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I AppliEnplorer 



□■■ Images 
Chien 
\- : Chat 
□■■ Recettes 



Tarte auw f raises! 



Cassoulet 



Preparation : 15 mn 
Cuisson : 10 mn 

Ingredients (pour 4/6 personnes) : 

PATE SABLEE 

- 250 g de farine 

- 125 g de beurre 

- 70 g de sucre 

- 2 jaunes d'oeufs 

- 5 cl d'eau 

- 1 pincee de sel 

CREME PAHSSIERE : 

- 1/4 de litre de lait 

- 1 oeuf 

- 30 g de farine 

- 40 g de sucre + 1 sachet de sucre vanille 



Preparation : 
PATE: 

Blanchirles jaunes etle sucre aufouet et detendre le melange avec 



Dans la partie gauche, toujours visible, nous avons sous forme d'arborescence les documents disponibles dans 
rapplication. En fonction de la selection faite dans cette arborescence, la zone de droite s'adapte pour afficher soit 
I'image soit le texte d'une recette. Nous avons done besoin de trois fenetres differentes : 



• la fenetre principale qui va contenir le controle TreeView, et par la suite les fenetres chargees de visualiser les 
documents, 

• une fenetre pour I'affichage des images, 

• une fenetre pour I'affichage du texte. 
Preparons la fenetre principale : 

■ Modifiez la propriete isMdiContainer sur True pour activer la fonctionnalite de fenetre mere MDI. 

■ Ajoutez un controle TreeView. 

■ Modifiez la propriete Dock du controle TreeView sur Left pour qu'il soit associe a la bordure gauche de la fenetre. 

■ Ajoutez les elements dans le controle TreeView en vous aidant de I'editeur de nceuds. 




• Pour notre application, la propriete Name des nceuds racines est utilisee pour determiner le type de document 
(tx pour fichier texte, gr pour fichier graphique). Pour les autres nceuds de I'arborescence, elle memorise le nom 
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du fichier concerne. 

Les fenetres enfants sont toutes aussi simples a configurer. 
Pour la fenetre graphique : 

■ Modifiez la propriete Borderstyle sur none. 

■ Ajoutez un controle PictureBox. 

■ Modifiez la propriete dock de ce controle sur Fill pour qu'il occupe toute la surface disponible de la fenetre. 

■ Modifiez la propriete sizeMode de ce controle sur Stretchlmage pour que I'image s'adapte a la taille du controle (done 
de la fenetre). 

Pour la fenetre texte : 

■ Modifiez la propriete Borderstyle sur none. 

■ Ajoutez un controle RichTextBox. 

■ Modifiez la propriete dock de ce controle sur Fill pour qu'il occupe toute la surface disponible de la fenetre. 

II ne nous reste plus maintenant qu'a ecrire quelques lignes de code pour afficher la bonne fenetre lors d'une selection 
dans le controle TreeView. Voici ci-dessous ces quelques lignes de code. 



Private Sub TreeViewl_Af terSelect (ByVal sender As System. Ob ject, ByVal e 
As System . Windows . Forms . TreeViewEventArgs ) Handles TreeViewl . Af terSelect 
If Not IsNothing (e .Node .Parent) Then 
Dim f As Form 

For Each f In Me . MdiChildren 

f .Close () 
Next 

Select case e . Node . Parent . Name 
case "gr" 

Dim fGr As Graphique 

fGr = New Graphique 

f Gr .MdiParent = Me 

fGr. Show () 

fGr. Dock = DockStyle .Fill 

fGr . PictureBoxl . Image = Image . FromFile ("../../ " & e. Node. Name) 
case "tx" 

Dim fTx As Texte 
fTx = New Texte 
fTx .MdiParent = Me 
fTx. Show () 

fTx. Dock = DockStyle . Fill 

fTx.RichTextBoxl .LoadFile ("../.. /" & e. Node. Name) 
End Select 
End If 
End Sub 



La totalite du code se trouve dans la procedure evenementielle Treeviewi_AfterSeiect appelee automatiquement 
apres la selection par I'utilisateur d'un element dans le controle TreeView. Notre premier travail consiste a tester si 
e'est un nceud enfant qui vient d'etre selectionne. Si e'est le cas, nous fermons toutes les fenetres enfants deja 
presentes (toutes est un bien grand mot puisque avec ce mecanisme il ne pourra jamais y en avoir plus d'une 
d'affichee a la fois). Ensuite, nous testons le type de document demande en verifiant la propriete Name du nceud parent 
de I'element selectionne (gr ou tx). En fonction du resultat, nous creons une instance de la fenetre adaptee a la 
situation. Nous etablissons son lien de parente avec la fenetre principale (propriete MdiParent). La fenetre est ensuite 
affichee en occupant toute la surface libre de la fenetre mere Mdi (propriete Dock=DockStyle.Fill). Ultime etape, nous 
affichons le document dans le controle adapte, RichTextBox ou PictureBox. 
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Les evenements clavier et souris 



La gestion du clavier et de la souris s'effectue exclusivement en utilisant les differents evenements que ces deux 
peripheriques sont capables de declencher. La plupart des controles sont capables de gerer ces evenements, il nous 
faut simplement connaitre a quel moment ils sont declenches et quelles informations ils fournissent. 



1. Les evenements clavier 

Les possibilites d'action de I'utilisateur sur son clavier sont limitees : il peut simplement frapper une touche du clavier. 
Dans Visual Basic.NET, cette action est decomposee en trois evenements distincts : 

KeyDown 

Cet evenement se produit lors de I'enfoncement de la touche. 

KeyUp 

Cet evenement se produit lors du relachement de la touche. 

KeyPress 

Cet evenement se produit lors de I'enfoncement, uniquement si la touche correspond a un caractere ASCII. 

Dans les evenements KeyDown et KeyUp, un argument de type KeyEventArgs donne des informations complementaires 
sur I'evenement. 

Les proprietes suivantes sont notamment disponibles : 

• [Alt] indique I'etat de la touche [Alt] du clavier au moment ou I'evenement se produit. 

• [Ctrl] et [Shift] fournissent des informations identiques pour les touches [Ctrl] et [Shift]. 

• KeyCode indique le numero de la touche sur le clavier. 

L'evenement KeyDown est utilise principalement pour travailler avec les touches de fonction. Nous pouvons, par 
exemple, convertir en majuscules le texte d'un controle TextBox si I'utilisateur frappe la combinaison de touches [Shift] 
[Ctrl] [Alt] [F8]. 



Private Sub TextBoxl_KeyDown (ByVal sender As Object, ByVal e As 
System . Windows . Forms . KeyEventArgs ) Handles TextBoxl . KeyDown 

If e.Alt And e. Control And e. Shift And (e. KeyCode = Keys.F8) Then 

TextBoxl . Text = UCase (TextBoxl . Text ) 
End If 
End Sub 



Une autre solution est possible en utilisant la propriete Modifiers qui regroupe I'etat des touches [Shift], [Ctrl] et [Alt]. 



Private Sub TextBoxl_KeyDown (ByVal sender As Object, 


ByVal e As 


System . Windows . Forms . KeyEventArgs ) Handles TextBoxl 


. KeyDown 


If e. Modifiers = Keys. Shift + Keys. Control + 


Keys .Alt 


And e. KeyCode = Keys.F8 Then 




TextBoxl . Text = UCase (TextBoxl . Text ) 




End If 




End Sub 





Enfin, la derniere possibility consiste a utiliser la propriete KeyData qui regroupe I'etat des touches [Shift], [Ctrl], [Alt] et 
une touche de fonction. 



Private Sub TextBoxl_KeyDown (ByVal sender As Object, ByVal e As 
System . Windows . Forms . KeyEventArgs ) Handles TextBoxl . KeyDown 
If e. KeyData = Keys. Shift + Keys. Control + Keys. Alt + Keys.F8 
Then 
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TextBoxl . Text = UCase (TextBoxl . Text ) 
End If 
End Sub 



L'evenement Keypress nous informe simplement, par I'intermediaire du parametre e de typeKeyPressEventArgs, sur le 
caractere qui vient d'etre saisi. Nous pouvons par exemple utiliser cet evenement pour verifier que tous les caracteres 
saisis sont numeriques, si ce n'est pas le cas, nous emettons un beep. 



Private Sub TextBoxl_KeyPress (ByVal sender As 


Object, ByVal e As 


System . Windows . Forms . KeyPressEventArgs ) Handles 


TextBoxl . KeyPress 


If Not IsNumeric (e . KeyChar ) Then 




Beep ( ) 




End If 




End Sub 





Cette procedure informe simplement I'utilisateur qu'il a saisi un caractere invalide, mais le caractere apparait tout de 
meme dans la zone de texte. II serait plus judicieux d'eviter que le caractere atteigne la zone de texte. La propriete 
Handled du parametre permet, en lui affectant la valeur true, d'indiquer que l'evenement clavier vient d'etre gere et 
qu'il ne doit pas etre pris en compte par le controle. 



Private Sub TextBoxl_KeyPress (ByVal sender As 


Object, ByVal e As 


System . Windows . Forms . KeyPressEventArgs ) Handles 


TextBoxl .KeyPress 


If Not IsNumeric (e . KeyChar ) Then 




Beep ( ) 




e. Handled = True 




End If 




End Sub 





Si plusieurs controles TextBox doivent avoir le meme fonctionnement, vous pouvez recopier ce code dans les 
evenements KeyPress de chacun des controles. Une solution plus elegante nous permet de centraliser le traitement 
dans l'evenement KeyPress de la fenetre. Pour cela, il convient d'indiquer a la proprieteKeyPreview de la fenetre qu'elle 
recevra les evenements clavier avant le controle de la fenetre qui a le focus. II faut simplement tester le controle actif 
de la feuille et verifier s'il doit "subir" le traitement. 



Private Sub TextBoxl_KeyPress (ByVal sender As Object, ByVal e As System. 
Windows . Forms . KeyPressEventArgs ) Handles TextBoxl . KeyPress 
If Me . ActiveControl Is TextBoxl Then 
If Not IsNumeric (e . KeyChar ) Then 
Beep ( ) 

e. Handled = True 
End If 
End If 
End Sub 



2. Les evenements souris 

Ces evenements sont principalement lies a I'utilisation des boutons ou de la molette de la souris. L'evenementciick 
est le plus utilise des evenements souris. II correspond a un appui suivi d'un relachement du bouton principal de la 
souris. II faut bien parler de bouton principal de la souris car en fonction de la configuration du poste de travail, ce 
bouton principal peut etre aussi le bouton droit (configuration pour gaucher). L'evenementDoubieciick n'est pas pris 
en charge par tous les controles, ainsi, par exemple, les controles Button ne sont pas capables de gerer le double die, 
ils generent en fait deux evenements click a la suite. 

Des evenements souris plus elementaires sont aussi disponibles : 

• MouseDownlorsqu'un bouton de la souris est enfonce ; 

• MouseUplorsqu'un bouton de la souris est relache ; 

• Mousewheeilorsque la molette est actionnee. 

Pour ces trois evenements, un parametre de type MouseEventArgs est fourni. Par I'intermediaire des proprietes 
disponibles dans cette classe, on obtient les informations suivantes : 

• le bouton a I'origine de l'evenement avec la propriete Button ; 
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• le nombre de fois ou le bouton est enfonce ou relache avec la propriete clicks ; 

• le nombre de crans de deplacement de la roulette avec la propriete Delta. Cette propriete est un entier positif 

ou negatif, suivant le sens de rotation de la molette. Chaque deplacement de la molette d'un cran incremente 
ou decremente cette propriete d'une valeur de 120 ; 

• les proprietes x et y indiquent ['emplacement sur le controle ou I'evenement souris vient de se produire. 
Les deplacements de la souris generent quatre evenements : 

• MouseEnterlorsque la souris entre au-dessus d'un controle ; 

• MouseMovelorsque la souris se deplace sur le controle ; 

• MouseLeavelorsque la souris quitte la surface du controle ; 

• MouseHoverlorsque la souris reste au-dessus d'un controle pendant une seconde. 

Comme pour les evenements lies aux boutons de la souris, un parametre de type Mouse EventArgsnous est fourni dans 
ces evenements. 

Un petit exemple pour tester cela avec une application de dessin tres rudimentaire. 



SJTelecran 





/ ■■ 

,■ ■■ ."V ,. 

I "i 1 1 1 

\ >/. ■ (■■. .>■'""■"■' V- 



< ■ . 



■ i i i i 



73^ 


1 









A chaque deplacement de la souris, un point est trace sur la feuille avec la couleur indiquee par les trois zones de texte 
(rouge, vert, bleu). Pour modifier la couleur, il suffit de deplacer la souris au-dessus de la zone de texte 
correspondante (le focus se place automatiquement grace a I'evenementMouseHover) et d'actionner la molette de la 
souris pour incrementer ou decrementer le pourcentage. 



Public Class telecran 

Dim rouge, vert, bleu As Integer 

Private Sub telecran_MouseMove (ByVal sender As Object, ByVal e As 
System . Windows . Forms . MouseEventArgs ) Handles Me.MouseMove 
Dim g As Graphics 
Dim crayon As Pen 

If e. Button = MouseButtons . Lef t Then 
g = Graphics . FromHwnd (Me . Handle ) 

crayon = New Pen (Color . FromArgb ( rouge * 2.55, vert * 2.55, bleu * 2.55)) 
g . DrawEllipse ( crayon, e.X, e.Y, 1, 1) 
End If 
End Sub 

Private Sub txtRouge_MouseWheel (ByVal sender As Object, ByVal e As 
System . Windows . Forms . MouseEventArgs ) Handles txtRouge . MouseWheel 
rouge += e. Delta / 120 
If rouge > 100 Then 
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rouge = 100 

txtRouge.Text = "100%" 
Elself rouge < 0 Then 
rouge = 0 

txtRouge.Text = "0%" 
Else 

txtRouge.Text = rouge & "%" 
End If 
End Sub 

Private Sub txtVert_MouseWheel (ByVal sender As Object, ByVal e As 
System . Windows . Forms . MouseEventArgs ) Handles txtVert . MouseWheel 
vert += e. Delta / 120 
If vert > 100 Then 
vert = 100 

txtVert.Text = "100%" 
Elself rouge < 0 Then 
vert = 0 

txtVert.Text = "0%" 
Else 

txtVert.Text = vert & "%" 
End If 
End Sub 

Private Sub txtBleu_MouseWheel (ByVal sender As System . Ob ject , ByVal e 
As System . Windows . Forms . MouseEventArgs ) Handles txtBleu . MouseWheel 
bleu += e. Delta / 120 
If bleu > 100 Then 
bleu = 100 

TxtBleu. Text = "100%" 
Elself bleu < 0 Then 
bleu = 0 

TxtBleu. Text = "0%" 
Else 

TxtBleu. Text = bleu & "%" 
End If 
End Sub 

Private Sub txtRouge_MouseHover (ByVal sender As Object, ByVal e As 
System . EventArgs ) Handles txtRouge . MouseHover 
txtRouge . Focus ( ) 
End Sub 

Private Sub txtVert_MouseHover (ByVal sender As Object, ByVal e As 
System . EventArgs ) Handles txtVert . MouseHover 
txtVert . Focus ( ) 
End Sub 

Private Sub txtBleu_MouseHover (ByVal sender As System . Ob ject , ByVal e 
As System . EventArgs ) Handles txtBleu . MouseHover 
TxtBleu. Focus () 

End Sub 
End Class 



3. Le Drag and Drop 

Le Drag and Drop est une fonctionnalite tres utilisee dans les applications Windows. El le permet le deplacement 
d'informations dans une application ou entre applications, en "accrochant" un element au curseur de la souris et en le 
lachant ensuite au-dessus de sa destination. 

On peut pratiquement accrocher n'importe quel element au curseur de la souris pour ensuite le deplacer ou le copier 
(texte, image, fichier. . .)■ Pour guider I'utilisateur sur ces possibilites, le curseur de la souris est modifie en fonction des 
controles qui sont survoles par la souris. 

Une operation de Drag and Drop se deroule en trois etapes : 

• accrochage d'un element a la souris ; 

• deplacement de la souris vers la destination ; 
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• largage au-dessus de la destination. 

Lors de I'operation de largage, nous avons deux possibilites : 

• l'element accroche a la souris est deplace. Dans ce cas, il disparait du controle de depart au moment du 
largage au-dessus du controle de destination. 

• L'element accroche est copie. Dans ce cas, c'est une copie qui est larguee au-dessus du controle de 
destination. 

Regardons en detail le code necessaire pour mener a bien une operation de Drag and Drop. Nous prendrons un 
exemple simple realisant une copie entre deux zones de texte (Txtsource, TxtDestination). 



a. Demarrage du Drag and Drop 

En general, une operation de Drag and Drop est demarree lorsque la souris se deplace au- dessus d'un controle et le 
selectionne sans relachement du bouton de la souris. On considere, dans ce cas, que I'utilisateur vient d'accrocher le 
controle a sa souris. 

Dans le code, cela ce traduit simplement par I'appel de la methode DoDragDrop du controle de depart. L'appel de cette 
methode necessite deux parametres : 

• L'element que nous accrochons au curseur de la souris (une chaine de caracteres, une image bitmap ou une 
image metafile), 



• Les operations autorisees pour I'objet accroche (copie, deplacement...). 



Private Sub txt source_MouseMove (ByVal sender As 


Object, ByVal e As System. 


Windows . Forms . MouseEventArgs ) Handles txtsource. 


MouseMove 


If e. Button = MouseButtons . Lef t Then 




txtsource . DoDragDrop (txtsource . Text , 


DragDropEf fects . Move + 


DragDropEf f ect s . Copy) 




End If 




End Sub 





b. Configuration des contrdles pour la reception 

II convient avant tout de configurer les controles de destination pour qu'ils acceptent la reception d'un element en 
modifiant la proprieteAiiowDrop surtrue. 

Ensuite, nous devons gerer I'evenementDragEnter qui se produit lorsque la souris entre sur la surface du controle 
avec un element "accroche". Dans la gestion de cet evenement, il faut determiner ce qui est accroche au curseur de la 
souris pour savoir si le controle peut I'accepter. Enfin, il faut determiner si I'utilisateur souhaite faire un deplacement 
ou une copie de l'element accroche au curseur de la souris. 

Pour effectuer cela dans le code, dans I'evenement DragEnter, nous avons a notre disposition le parametre e qui est 
une instance de la classe DragEventArg. Cette classe nous fournit de nombreuses proprietes pour nous aider dans 
nos decisions : 

AllowedEf f ect 

Permet de savoir quelles sont les operations autorisees par le controle a I'origine du Drag and Drop. 

Data 

Contient les informations accrochees au curseur de la souris. Par I'intermediaire de cette propriete, on peut obtenir le 
type d'information en appelant la methode GetDataPresent ou obtenir les donnees en appelant la methode GetData. 

Effect 

Indique Taction autorisee par le controle de destination. Cette propriete est utilisee pour controler I'apparence du 
curseur de la souris. 
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KeyState 



Indique I'etat des touches [Shift], [Ctrl], [Alt] nous permettant de savoir si I'utilisateur souhaite effectuer un 
deplacement ou une copie. 

X, Y 

Indique les coordonnees de la souris sur le controle. 



Private Sub txtdestination_DragEnter (ByVal sender As Object, ByVal e As System. 
Windows . Forms . DragEventArgs ) Handles txtdestination . DragEnter 
^qu'est ce qu' il y a d' accroche ? 
If e . Data . GetDataPresent (DataFormats . Text ) Then 
* est ce que la touche Ctrl est enfoncee 
If (e. KeyState And 8) = 8 Then 

* curseur copie 

e. Effect = DragDropEf f ects . Copy 

Else 

* curseur souris deplacement 

e. Effect = DragDropEf f ects . Move 
End If 
End If 

End Sub 



c. Recuperation de I'element accroche 

Lorsque I'utilisateur relache le bouton de la souris, I'evenement DragDrop se produit sur le controle de destination. 
Dans cet evenement, il faut recuperer I'element accroche et le placer dans le controle de destination. S'il s'agit d'un 
deplacement, il faut aussi supprimer I'information du controle source. Probleme ! qui est le controle source ? Nous 
n'avons aucune information sur son identite. La solution consiste a stocker, dans une variable une reference vers le 
controle a I'origine de I'operation de Drag and Drop au debut de I'operation. 



Dim ctrlSource As TextBox 

Private Sub txt source_MouseMove (ByVal sender As Object, ByVal e As System. 
Windows . Forms . MouseEventArgs ) Handles txt source . MouseMove 
If e. Button = MouseButtons . Lef t Then 
ctrlSource = txtsource 

txt source . DoDragDrop (txt source . Text , DragDropEf f ects . Move + Drag 
DropEf f ects . Copy) 
End If 

End Sub 

Private Sub txtdestination_DragDrop (ByVal sender As Object, ByVal e As System. 
Windows . Forms . DragEventArgs ) Handles txtdestination . DragDrop 

A recuperation de l'info est stockage dans le controle de destination 

txtdestination . Text = e . Data . GetData (DataFormats . Text ) 
x verification si c'est une copie ou un deplacement 
If (e. KeyState And 8) 8 Then 

A effacement du controle source 
ctrlSource . Clear ( ) 
End If 

End Sub 
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Les boTtes de dialogue 



Les boites de dialogue sont des fenetres qui ont une fonction speciale dans une application. Elles sont, en general, 
utilisees pour demander la saisie d'informations a I'utilisateur. Pour s'assurer que ces informations sont bien saisies 
avant de continuer I'execution de I'application, les boites de dialogue sont souvent affichees en mode modal, c'est-a-dire 
que le reste de I'application est bloque tant que la boTte de dialogue est affichee. II arrive frequemment que dans une 
application, on ait besoin des memes informations : un nom de fichier a ouvrir, une police de caractere a choisir, etc. Pour 
nous eviter d'avoir a recreer, a chaque fois, une nouvelle boite de dialogue, nous avons a notre disposition une serie de 
boites de dialogue predefinies. 



1. La boite de saisie 

La boite de saisie permet de demander a I'utilisateur la saisie d'une chaine de caracteres. Cette possibilite est 
accessible par I'intermediaire de la fonctioninputBox. Cette fonction attend trois parametres : 



• le texte affiche dans la boite (en general la question posee a I'utilisateur) ; 



• le titre de la boite de dialogue ; 



• une valeur par defaut affichee dans la zone de saisie. 



La fonction renvoie en retour une chaine de caracteres correspondant au texte saisi par I'utilisateur, si celui-ci valide sa 
saisie par le bouton OK sinon elle renvoie une chaine de caracteres vide. 



Dim resultat As String 

resultat = InputBox ( "Veuillez saisir votre nom", "identification", "votre nom") 



2. La boite de message 



identification 



Veuillez saisir votre norm 




OK 



Cancel 



votre no 



a 



Les boites de message permettent de passer une information a I'utilisateur et lui donnent la possibilite de repondre 
par I'intermediaire des boutons de commande de la boite de message. 

La boite de message est disponible par I'intermediaire de la methode show disponible dans la classe MessageBox. Cette 
methode prend de nombreux parametres pour configurer la boite de dialogue. Le premier parametre correspond au 
message affiche. Le parametre suivant specifie le titre de la boite de message. Les parametres suivants doivent etre 
choisis parmi des constantes predefinies pour indiquer respectivement : 



• les boutons disponibles sur la boite de message ; 



• I'icone affichee sur la boite de message ; 



• le bouton selectionne par defaut a I'affichage de la boite de message. 



Les constantes disponibles sont : 



• pour les boutons : 



Constante 



Signification 
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OK 


Bouton OK seul 


OKCancel 


Boutons OK et Annuler 


AbortRetrylgnore 


Boutons Abandonner, Reessayer et Ignorer 


YesNoCancel 


Boutons Oui, Non et Annuler 


YesNo 


Boutons Oui et Non 


RetryCancel 


Boutons Reessayer et Annuler 



• pour les icones : 



Constante 



Iconlnformation 



Signification 




IconExclamation 




IconError 



IconQuestion 




pour le bouton par defaut : 



Constante 


Signification 


DefaultButtonl 


Premier bouton 


DefaultButton2 


Deuxieme bouton 


DefaultButton3 


Troisieme bouton 



Pour obtenir la boite de message suivante, 

1 



Fin de programme 



Voulez vous enregistrer en quittant I'application 



Oui 



Non 



Annular 



nous utiliserons le code suivant : 



Dim reponse As Integer 

MessageBox . Show ( "Voulez vous enregistrer en quittant I'application", _ 

"Fin de programme", MessageBoxButtons . YesNoCancel, _ 
MessageBox I con . Question, Me ssageBoxDe fault But ton . Butt on 1 ) 



Comme nous posons une question a I'utilisateur, nous devons recuperer sa reponse pour decider de la conduite a tenir 
dans l'application. Pour cela, la methode show renvoie une valeur indiquant le bouton utilise pour fermer la boite de 
message. Ici encore, une serie de constantes est definie pour identifier chaque cas possible. 
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Valeur renvoyee 


Bouton utilise 


Ok 


Bouton Ok 


Cancel 


Bouton Annuler 


Abort 


Bouton Abandonner 


Retry 


Bouton Reessayer 


Ignore 


Bouton Ignorer 


Yes 


Bouton Oui 


No 


Bouton Non 



Nous pouvons ensuite tester la reponse : 



Select Case reponse 

Case DialogResult . Yes 

Case DialogResult . No 

Case DialogResult . Cancel 

End Select 



3. Les boites de dialogue de Windows 



De nombreuses boites de dialogue sont deja definies au niveau du systeme Windows lui-meme. Pour pouvoir les 
utiliser dans nos applications, nous avons a notre disposition une serie de classes. Regardons comment les configurer 
et les utiliser dans une application. 



a. Dialogue d'ouverture de fichier 



selection du fichier a ouvrir 



Rechercher dans : I 'PJ DDs" 




ATTRIB.EXE 
~5] AUTOEXEC. C 
*l COUNTRY. 5Y5 
DELPART.EXE 
DELTREE.EXE 
DI5KCOPY.COM 
HI D05KEY.COM 
EDIT.COM 



_lFDI5K.EXE 
F0RMAT.COM 



* HIMEM.5Y5 



Norm de fichier 



Type 



KEYB.COM 



% KEYBOARD. 5Y5 



Q5Y5.COM 
~1XC0PY.EXE 



*l KEYBRD2.5Y5 
LABEL.EXE 
MEM. EXE 

m5cdex.exe 
@mtmcdai.5y5 
HIpkzip.exe 

m 5CANDI5K.INI 



% 5GIDE268.5Y5 



J5MARTDRV.EXE 



3 



Ouvrir 



tous 



31 



Annuler 



Cette boite de dialogue nous permet la selection d'un ou de plusieurs noms de fichier avec la possibility de se 
deplacer dans I'arborescence de la machine. La classe utilisee est la classeopenFiieDiaiog. Nous devons done creer 
une instance dans notre application. 
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Dim dlgOuvrir As OpenFileDialog 
dlgOuvrir = New OpenFileDialog ( ) 



II convient egalement de configurer notre boite de dialogue. La proprieteinitiaiDirectory indique le repertoire sur 
lequel se trouve la boite de dialogue a son ouverture. II est possible de n'afficher que certains fichiers dans les 
repertoires qui seront parcourus, il faut done configurer par I'intermediaire de la propriete Filter les correspondances 
entre la description du contenu et I'extension associee. La propriete Filter stocke 1'information sous forme d'une 
chaine de caracteres. La description et I'extension sont separees dans la chaine par le caractere | ([AltGr] 6). Si 
plusieurs extensions sont disponibles pour une meme description, elles doivent etre separees par un point-virgule 
dans la chaine. Vous pouvez egalement indiquer si une extension doit etre ajoutee aux noms de fichiers saisis 
manuellement, si ceux-ci n'en comportent pas. 

La proprieteDefauitExt contient I'extension a ajouter etAddExtension indique si cette extension est ajoutee 
automatiquement. Dans la mesure ou Ton permet a I'utilisateur de saisir manuellement le chemin et le nom du fichier 
a ouvrir, vous pouvez confier a la boite de dialogue le soin de verifier que le nom et le chemin d'acces sont corrects. 
Les proprietes checkFiieExistetcheckPathExist gerent ces verifications. Vous pouvez egalement autoriser les 
selections multiples par I'intermediaire de la proprieteMuitiseiect. 

Enfin, pour afficher la boite de dialogue, on utilise la methode showDiaiog : 



dlgOuvrir . InitialDirectory = "c:\dos" 

dlgOuvrir . Title = "selection du fichier a ouvrir" 

dlgOuvrir . Filter ="tous | * . * | Images | * . bmp; * . gif ; * . jpg | texte | * . txt " 
dlgOuvrir . DefaultExt = "to to" 
dlgOuvrir . AddExtension = True 
dlgOuvrir . CheckFileExists = False 
dlgOuvrir . Multiselect = True 
dlgOuvrir . ShowDiaiog ( ) 



Les noms du fichier ou des fichiers selectionnes sont disponibles dans la proprieteFiieNames pour une selection 
unique ou dans la propriete FileNames pour les selections multiples. Cette propriete FileNames est un tableau de 
chaines de caracteres avec, dans chaque case du tableau, le nom complet d'un des fichiers selectionnes. 



Dim nomFichier As String 

For Each nomFichier In dlgOuvrir . FileNames 
System .Console . WriteLine (nomFichier) 

Next 



b. Dialogue d'enregistrement de fichier 

La boite de dialogue d'enregistrement de fichier est similaire a la precedente, mis a part la propriete Multiselect qui 
disparait et les proprietescreatePrompt etOverwritePrompt permettant d'afficher un message d'avertissement, si le 
nom du fichier saisi n'existe pas ou au contraire s'il existe deja. 



c. Dialogue de choix de repertoire 



Rec here her un dossier 



□ (£) livre vb.net 2003 
ffl (£) chapitre 1 
El (£) chapitre 2 
S (£) chapitre 3 
El (£) chapitre 4 
GE (£) chapitre 5 
SI (£) chapitre 6 

□ bflB 

El code 
Irt images 



Creer un nouveau dossier 



OK 




Annuler 



- 4 - 



Cette boite de dialogue est utilisee pour la selection ou la creation d'un repertoire. El le est creee a partir de la classe 
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FoiderBrowserDiaiog. Cette derniere comporte tres peu de proprieties. La plus utilisee est certainement la propriete 
seiectedPath permettant la recuperation du chemin d'acces au repertoire selectionne. Le repertoire racine de la boite 
de dialogue est indique par la propriete RootFoider. Cette propriete regoit une des valeurs de Enumeration 
Environment . speciaiFoider representant les principaux repertoires caracteristiques du systeme comme, par exemple, 
le repertoire Mes documents. Si cette propriete est utilisee la selection ne pourra se faire que dans un sous 
repertoire du repertoire racine. L'ajout d'un bouton permettant la creation d'un nouveau repertoire peut etre autorise 
en modifiant la propriete showNewFoiderButton. L'affichage de la boite de dialogue se fait de maniere classique par la 
methode showDialog : 



dlgChoixRep . RootFoider = Environment . SpeciaiFoider . MyDocuments 
dlgChoixRep . ShowDialog ( ) 

MsgBox (dlgChoixRep . SeiectedPath, , "Repertoire selectionne") 



II faut egalement noter que le chemin d'acces retourne par cette boite de dialogue est un chemin absolu comme dans 
I'exemple ci-dessous : 



Repertoire selectionne 



X 

i ' 



C:\Documents and 5ettings\tgroussard\Mes documents\liwe vb.net 2008\chapitre 7\code 



OK 



j 



d. Dialogue de choix d'une couleur 

La boite de dialogue de choix de couleur creee a partir de la classe coiorDialog peut avoir deux configurations 
differentes. 

Une version "simple" ou seules les couleurs de base sont disponibles. 



Couleurs 



Couleurs de base 



_?|xj 

rr 
rmmm 




Une version complete dans laquelle Tutilisateur pourra creer des couleurs personnalisees. 
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Couleurs 



Couleurs de base 



□ 




Couleurs personnalisees 

J 







OK 




Annuler 






T-eirfe :\\\ 60 Rouge :|0 
Satur. :[o Vert : [o 
CouleurlUnie l^..^ - BleuiJO 

Ajouter auw couleurs personnalisees 





La propriete color permet d'initialiser la boite de dialogue avant son affichage et ensuite de recuperer la couleur 
choisie par I'utilisateur. Vous pouvez interdire ['utilisation des couleurs personnalisees ou au contraire afficher la boite 
de dialogue complete des son ouverture. Pour interdire I'affichage des couleurs personnalisees, on modifie la 
propriete AiiowFuiiopen. Pour forcer I'affichage complet, on utilise la propriete Fuliopen. 

L'affichage de la boite de dialogue s'effectue toujours par la methode showDiaiog. Pour conserver une qualite 
d'affichage correcte, vous pouvez egalement n'autoriser que I'utilisation de couleurs pures (les couleurs obtenues par 
juxtaposition de differents pixels seront eliminees des choix possibles). Cette option est a utiliser si vous avez une 
carte graphique configuree en 256 couleurs. 

Cet exemple modifie la couleur de fond de notre feuille. 



Dim dlgColor As ColorDialog 
dlgColor = New ColorDialog ( ) 
dlgColor . FullOpen = True 
dlgColor . SolidColorOnly = True 
dlgColor . Color = Me.BackColor 
dlgColor . ShowDiaiog ( ) 
Me.BackColor = dlgColor . Color 



e. Dialogue de choix d'une police 



Police 



Tjx| 



Police : 


Style : 


Microsoft Sans ^[jJ 


Standard 


\ : J Microsoft Sans Serif 




[ Standard 


0 Mistral 
f) Modern No. 20 
0 Monotype Corsiva 
^ Monotype Koufi 
^ MS Mincho 
^ MS Outlook 




Italique 
Gras 

Gras italique 



Tale 



|5 


8 




9 




10 




11 




12 




14 




|16 





OK 



Annuler 



Appliquer 



Effets 



Barre 
V Souligne 
Couleur : 



pApercu 
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La classe de base utilisee pour la selection d'une police est la classe FontDiaiog. La propriete Font permet de definir 
la police de caracteres utilisee pour initialiser la boite de dialogue ou, apres fermeture, de recuperer la police 
selectionnee. Vous pouvez egalement afficher une boite de dialogue simplifiee sans le choix de couleur ou des effets. 
Pour cela, les proprietes showCoior et showEf fects controlent I'affichage de ces parametres dans la boite de dialogue. 
Afin de garantir que les parametres selectionnes correspondent bien a une police existant sur la machine, vous 
pouvez utiliser la propriete FontMustExist. Cette propriete obligera la boite de dialogue a verifier I'existence d'une 
police correspondante sur le systeme avant de se fermer. Certaines polices proposent plusieurs jeux de caracteres. 
Vous pouvez autoriser les utilisateurs a choisir Tun de ces jeux de caracteres en modifiant la propriete 
AiiowScriptchange. La taille de la police selectionnee peut egalement etre limitee par les proprietes MaxSize 

etMinSize. 

Pour vous rendre compte de I'effet de la police selectionnee, un apergu sur quelques caracteres est disponible. Si cet 
apergu n'est pas suffisant, vous avez la possibility d'afficher un bouton Appliquer sur votre boite de dialogue par 
I'intermediaire de la propriete showAppiy. Ce bouton declenche un evenement Apply sur la boite de dialogue. Dans la 
gestion de cet evenement, vous pouvez utiliser la propriete Font de la boite de dialogue pour visualiser I'effet de la 
police actuellement selectionnee sur votre texte. La variable faisant reference a la boite de dialogue doit etre 
declaree avec le mot cle withEvents done en dehors d'une procedure. Un petit exemple pour visualiser I'uti I isation de 
ces proprietes : 



m 



Choin d'une police 



I 


-1 


El 


x| 



Echantillon 



Servez a ce monsieur, te viem^ 
petit juge 6£om£ assis aujbnd 
une biere fioSim{faise et des 
fiiwis, parce quity tient 




Choix Police 



Police 



Police 



Style 



Taille 



Q 


12 




14 




1G 




18 




20 

1 






OK 




Public Class TestPolice 

Inherits System . Windows .Forms .Form 
Dim WithEvents dlgFont As FontDiaiog 
Private Sub cmdPolice_click (ByVal sender As System . Ob ject , _ 

ByVal e As System . EventArgs ) Handles cmdPolice . Click 
dlgFont = New FontDiaiog () 
dlgFont . ShowAppiy = True 
dlgFont . ShowCoior = True 
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dlgFont . ShowEf f ect s = True 
dlgFont .MaxSize = 20 
dlgFont .MinSize = 12 
dlgFont . FontMustExist = True 
dlgFont . AllowScriptChange = True 
dlgFont . ShowDialog ( ) 
txtEchantillon . Font = dlgFont. Font 

End Sub 

Private Sub dlgFont_Apply (ByVal sender As Object, ByVal e As System . Event Args ) 
Handles dlgFont . Apply 

txtEchantillon . Font = dlgFont. Font 
End Sub 
End Class 



f. Dialogue de mise en page 



Par I'intermediaire de cette boite de dialogue, vous allez pouvoir configurer les parametres de mise en page de votre 
document (marges, orientation...)- 



Mise en page 



- Orientation - 
& Portrait 



Passage 



i- Marges (millimetres) 



Gauche: [To 





Droite: [lO 




Haut 



i 



10 



Bas: [To" 



J 



□K 



Annuler 



Imprimante. 



Cette boite de dialogue est creee a partir de la classePageSetupDiaiog. Pour travailler, cette classe a besoin de deux 
classes auxiliaires : la classepagesettings sert a stocker la configuration de la mise en page, la classe 
PrinterSettings stocke la configuration de Timprimante selectionnee. II faut creer une instance de ces deux classes 
et les associer aux proprietes PageSettings etPrinterSettings de la boite de dialogue. Vous serez oblige d'importer 
I'espace de noms system. Drawing. Printing pour pouvoir utiliser ces deux classes. 

L'utilisation des differentes rubriques de la boite de dialogue peut etre interdite par la modification des proprietes 
suivantes : 



• AiiowMargins pour la modification des marges ; 

• AiiowOrientation pour la modification de I'orientation ; 

• AiiowPaper pour le choix du papier ; 

• AiiowPrinter pour le choix de Timprimante. 

Les choix de I'utilisateur seront ensuite recuperes a I'aide des proprietes PageSettings et PrinterSettings de la boite 
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de dialogue. 

Voici un exemple d'utilisation : 



Imports System . Drawing . Printing 




Public Class Form2 




Inherits System . Windows . Forms .Form 




Private Sub TestPgSetup_Click (ByVal sender As System. 


Object, ByVal e As System. 


EventArqs) Handles testPqSetup . Click 




Dim confiqPq As PaqeSettinqs 




Dim confiqPrt As PrinterSettinqs 




configPg = New PageSettings ( ) 




confiqPrt = New PrinterSettinqs ( ) 




dlgPgSetup . PageSettings ( ) = configPg 




dlgPgSetup . AllowPrinter = True 




dlqPqSetup . PrinterSettinqs = confiqPrt 




dlgPgSetup . ShowDialog ( ) 




MessaqeBox . Show ( " vous avez choisi cT imprimer 


avec 1' imprimante " 


& dlgPgSetup . PrinterSettings . 


PrinterName _ 


& " sur du papier " _ 




& dlgPgSetup . PageSettings . PaperSize . PaperName _ 




& " en format " _ 




&( Ilf (dlgPgSetup . PageSettings . Landscape, "paysage", " 


portrait " ) ) ) 


End Sub 




End Class 





g. Dialogue de configuration d'impression 

Avec cette boite de dialogue, vous pouvez configurer les parametres d'impression de votre document. Elle sera creee 
a partir de la classePrintDiaiog. 



Impression 



Imprimante- 

Norm : 

£tat: 
Type: 

Emplacement 
Commentaire : 



\SZE U S VAPicasscACO PAU T □ 



Proprietes. 



Pret 

NRG D420/2S20/3220 
\\Picasso\C0PAUT0 




Impr. dans un fichier 



pZone d'impression- 
(? Tout 

C Pages de : f 
C Selection 



a : 





r- Copies 



N ombre de copies 



\~ Copies assemblees 



OK 



Annuler 



Comme pour la boite de dialogue de mise en page, la boite de dialogue de configuration d'impression a besoin d'une 
instance de la classe PrinterSettings pour stocker les informations de configuration de Timprimante. 

Les differentes rubriques peuvent etre interdites d'utilisation, par la modification des proprietes suivantes : 

• AiiowSeiection autorise I'utilisation du bouton Selection. En general ce bouton est accessible uniquement s'il 
y a quelque chose de selectionne dans le document que vous voulez imprimer. 

• AiiowSomePages autorise la selection d'une page de debut et d'une page de fin pour I'impression du 
document. Ce bouton doit etre disponible si le document contient plusieurs pages. 



AiiowPrintToFiie indique si la case a cocher Impression dans un fichier est disponible. Cette fonctionnalite 
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permet par exemple la recuperation d'un fichier au format PostScript pour I'importer dans une autre 
application. 



Le resultat des differentes options selectionnees est disponible apres fermeture de la boite de dialogue, par 
I'intermediaire de la propriete PrinterSettings. 

Voici un nouvel exemple pour cette boite de dialogue. 



Dim conficrPrt As PrinterSettinas 

_!_«' 1 ILL \ / \^/ X X 1 1 ^— -1 X- 1 L . X X k s X- 1 1 X X L . V - 1 V - L . L - 1 X X ^wl k / 






Dim dlaDrinter As PrintDialoa 

J ' 1 ILL V 1- 1 "wl J 1 X X I ' v r J X X l / J_ J 1 X X I J ' 1 1 \ / *u1 






confiaPrt = New PrinterSettinas () 






dlaDrinter = New PrintDialoa ( ) 

\w4 1 n^i y—^ -1 1 X X \ ■ V - _l X v V ' V V J -1 1 X X ^ ' J y 1 \^A. 1 \^/ \ / 






HI aDrinter . PrinterSettincrs = confiaPrt 






dlanrinter.AllowSomePa.aes = True 






d 1 odt i nt pr AllowSeleo1~"ion = True 






d 1 anr i nt pr Sh owD i a 1 oa ( ) 






Select Case dlgprinter . PrinterSettings . PrintRange 






Case PrintRange . AllPages 






MessageBox . Show ( " vous avez demande 1' impression de tout 


le 


document " ) 


Case PrintRange . SomePages 






MessageBox . Show ( "vous avez demande 1 impression de 


la 


page " _ 


& dlgprinter . PrinterSettings . FromPage & 


" a 


. la page " _ 


& dlgprinter . PrinterSettings. ToPage ) 






Case PrintRange . Selection 






MessageBox . Show ( "vous avez demande 1' impression de 


la 


selection" ) 


End Select 







4. Boite de dialogue personnalisee 

Apres ce bref apergu des boites de dialogue predefinies, nous allons voir comment creer nos propres boites de 
dialogue. La base de creation d'une boite de dialogue est une fenetre classique pour laquelle on modifie les proprietes 
suivantes : 

• Le style de la bordure, pour avoir une fenetre non redimensionnable. 

• La propriete showinTaskBar qui est positionnee a False pour que la fenetre n'apparaisse pas sur la barre des 
taches. 

• II faut egalement prevoir un bouton de validation et un bouton d'annulation pour la fermeture de la boite de 
dialogue. 

Vous pouvez creer une boite de dialogue en modifiant manuellement ces proprietes sur une fenetre normale, ou choisir 
au moment de I'ajout d'un element au projet I'option 'Dialog'. 
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A jo liter un ricuvel clement * d(§ 




d 




Categories : 


Modetesi ^! 





- Elements tommuns 
Code 
Donnees 
General 
Web 

Windows Forms 
Reporting 
Worttflow 
WPF 



Modeles Visual Studio in-stalles 



piEoftede dialogue 



j/j Controls pBrsonrtdise 
,■ "jEcrdn dc dernarrage 

jForfrnJcir^ Explorcteur 

^Windows Form 
^Gontrole utilsoteur hc-rttD 



] BoTte de dialogue A prqpos de 
£] Conbrale utilisabeur 
^ ForfinLiSare dc conntexion 
. _ | Foimjlgfre parent MDI 
^ Formula re herilre 



jRjechjercrws des modeles en lignc. . 



Softe de dialogue pour applkalioris Windows Forms 



Diabg2.vb 



| Ajouter j [ flnnuter 



L'affichage de la boite de dialogue se fera par I'appel de la methode showDiaiog au lieu de la methode show car la 
methode showDiaiog affiche la fenetre en mode modal (notre boite de dialogue sera la seule partie utilisable de 
I'application tant qu'elle sera ouverte). 

A la fermeture de la boite, il faut pouvoir determiner quel bouton a provoque la fermeture de la boite de dialogue. C'est 
en fait la methode showdialog qui va nous fournir la solution. El I e nous retourne une des valeurs de Enumeration 
System. windows .Forms . DiaiogResuit . La valeur retournee n'est bien sur pas prise au hasard. Vous etes done obliges, 
au moment de la conception de la boite de dialogue, de fournir la valeur a retourner pour chacun des boutons 
provoquant la fermeture de la boite de dialogue. Vous pouvez le faire en modifiant la propriete DiaiogResuit de la 
boite de dialogue dans I'evenement click de chacun des boutons ou en modifiant la propriete DiaiogResuit des 
boutons concernes par la fermeture de la boite de dialogue. A noter que dans ce cas il n'y a pas besoin de gerer 
I'evenement click sur le bouton pour provoquer la fermeture de la boite de dialogue. Si les deux solutions sont 
utilisees simultanement, la propriete DiaiogResuit de la boite de dialogue sera prioritaire pour determiner la valeur 
renvoyee par la methode showDiaiog. 



Maintenant que nous savons comment configurer et afficher une boite de dialogue, le plus dur reste a faire 
I'interface visuelle de la boite de dialogue. 



creer 
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Utilisation des contrdles 



Les controles vont nous permettre de creer I'interface entre I'application et son utilisateur. C'est par leur intermedia ire 
que I'utilisateur pourra agir sur le fonctionnement de I'application en saisissant du texte, en choisissant des options, en 
langant I'execution d'une partie specifique de notre application, etc. 

Les controles seront disponibles, en VB.NET, par I'intermediaire d'une serie de classes qui devront etre instanciees au 
cours de I'execution de I'application. 

Ces differentes classes sont issues d'une hierarchie qui commence par la classe de base control. Cette classe assure 
les fonctions elementaires des controles (positions, dimensions...) puis une classe derivee ajoute des fonctionnalites 
supplementaires et ainsi de suite jusqu'a la classe finale de la hierarchie. 



1. Ajout de contrdles 

Les controles peuvent etre ajoutes sur une fenetre de deux manieres differentes. La plus simple, et la plus rapide 
egalement, passe par I'utilisation de la boite a outils. Ici encore il existe trois possibilites pour I'ajout des controles. 

• Effectuez un double die sur le controle dans la boite a outils. Cette methode permet d'en placer un exemplaire, 
avec une ta i I le par defaut au centre de la fenetre. 

• Effectuez un glisser-deplacer entre la boite a outils et la fenetre. Des que vous survolez la feuille, le curseur de 

la souris vous indique, par la presence d'un petit signe plus ( + ), que vous allez ajouter quelque chose sur votre 
feuille. La position a laquelle vous lacherez le bouton de votre souris correspondra a la position du coin 
superieur gauche de votre controle. II sera dimensionne avec les valeurs par defaut. 

• Selectionnez le controle dans la boite a outils puis cliquer sur la fenetre a I'endroit ou vous voulez placer le coin 

superieur gauche de votre controle, puis sans relacher le bouton de la souris, agrandissez le rectangle jusqu'a 
la ta i I le desiree pour votre controle. 

Si vous souhaitez placer plusieurs exemplaires du meme controle sur votre fenetre, il est possible de bloquer la 
selection dans la boite a outils en utilisant la touche [Ctrl] lorsque vous selectionnez le controle dans la boite a outils. 
Vous pourrez alors placer plusieurs exemplaires du meme controle sans avoir a le reselectionner dans la boite a outils 
en conservant la touche [Ctrl] enfoncee. 

Certains controles n'ont pas d'interface visible au moment de la conception de la fenetre. Pour eviter d'encombrer la 
surface de la fenetre, ils sont places dans une zone situee en bas de la fenetre de conception graphique ; c'est le cas 
par exemple des controles imageList et Timer que nous verrons un peu plus loin dans ce chapitre. II est possible 
d'ajouter des controles a la boite a outils. Ces controles peuvent etre des controles .net ou des controles ActiveX. 
L'utilisation de controles ActiveX va entrainer quelques inconvenients pour votre application. Le code de votre 
application sera moins efficace (des operations supplementaires seront necessaires pour acceder au controle ActiveX). 

Le deploiement de votre application necessitera des modifications dans la base de registre des machines pour 
I'enregistrement des controles ActiveX. 

Les controles ajoutes sont nommes automatiquement par Visual Studio au fur et a mesure de I'ajout. Par contre, les 
noms utilises par defaut ne sont pas tres explicites. 

Le code suivant ne doit pas vous paraitre tres limpide. 



Buttonl . Enabled = False 
TextBoxl . Clear ( ) 
CheckBoxl . Checked = True 
RadioButtonl . Checked = False 
RadioButton2 . Checked = True 



II est done primordial, pour la lisibilite du code, de renommer les controles de preference des la creation ou, au plus 
tard, avant de les utiliser dans le code. II suffit simplement de changer la propriete name de chacun d'entre eux a I'aide 
de la fenetre de proprietes. II n'y a pas de regie absolue a respecter pour les noms des controles. Une solution 
frequemment utilisee consiste a associer un prefixe representatif du type du controle a un nom explicite pour 
I'application. Les prefixes ne sont pas normalises mais les regies suivantes subsistent depuis les premieres versions de 
Visual Basic. 



Prefixe 


Controle 


cbo 


ComboBox 


1st 


Listbox 
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chk 


CheckBox 


opt 


RadioButton 


cmd 


Button 


txt 


TextBox 


Ibl 


Label 



Avec le respect de ces conventions et un peu de bon sens, le code est nettement plus clair : 



cmdValidation . Enabled = False 

txtNom . Clear ( ) 

chkltalique . Checked = True 

optBleu . Checked = False 

opt Vert . Checked = True 



2. Position et dimension des controles 

Apres avoir place les controles sur la fenetre, il est bien sur possible de les repositionner ou de les redimensionner. 
Lorsque vous deplacez la souris au-dessus d'un controle, le curseur change d'apparence pour indiquer la possibilite de 
deplacer le controle. 




II suffit de cliquer sur le controle puis de deplacer la souris. Un rectangle noir suit alors votre curseur de souris, pour 
representer la future position de votre controle. Des lignes de guidage sont affichees pendant le deplacement du 
controle pour faciliter son alignement avec les autres controles deja places sur la fenetre. Les lignes bleues 
representent les alignements possibles sur les bordures des autres controles, les lignes roses representent les 
alignements possibles sur les libelles des controles. Le controle sera effectivement deplace au moment ou vous 
relacherez le bouton de votre souris. 







Button! : 








i 




■ ■ ■ k- 



L'utilisation des fleches du clavier est egalement possible et apporte plus de precision dans les deplacements. 

Vous pouvez aussi modifier la position d'un controle par sa propriete Location dans la fenetre de proprietes. Cette 
propriete est d'ailleurs modifiee lorsque vous deplacez un controle avec la souris ou le clavier. 



Enfin, la derniere possibilite est de modifier les proprietes Left et Top du controle par le code. Le morceau de code 
suivant permet de deplacer le bouton de commande a une position aleatoire a chaque fois que vous cliquez dessus. 



Private 


Sub cmdtest_Click (ByVal sender As System . Ob ject , _ 






ByVal e As System . Event Args ) Handles 


cmdtest . Click 




cmdtest.Left = Rnd ( ) * (Me . ClientSize . Width - cmdtest. 


Size .Width) 




cmdtest.Top = Rnd ( ) * (Me . ClientSize . Height - cmdtest. 


Size . Height ) 


End Sub 







Des fonctionnalites plus evoluees permettent le positionnement des controles les uns par rapport aux autres. Pour 
pouvoir les utiliser, il faut au prealable selectionner plusieurs controles sur votre feuille. Pour cela, deux solutions 
possibles : 
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• Dessiner un rectangle de selection, avec la souris, autour des controles. 



• Cliquer sur les controles les uns apres les autres en maintenant la touche [Ctrl] enfoncee. Le premier controle 
selectionne apparait avec des poignees de selection blanches. 



Button! 



I 



6 Button2 b 
u u u 



Buitoh3 | 



Button4 



Les options du menu Format de VB.NET sont maintenant disponibles et vous fournissent de nombreuses options pour 
positionner les controles. Le controle qui apparait dans la selection avec des poignees de selection blanches est 
considere comme reference pour Talignement. 



Format 



Outils Fenetre Communaute ? 



Aligner ► 


it- 


Cotes gauches 




Uniformiser la taille ► 


4 


Centres 




Espacement horizontal ► 


^1 


Cotes droits 




Espacement vertical ► 




5ommets 




Centrer sur le formulaire ► 




Milieux 




Ordre t 




Bases 




Verrouiller les controles 


__ 


Sur la grille 



Button! 



Oh 

6 



o 

Button2 



Button3 



■ 



Button4 



^Jnj xj 



I 



o 



1 



De nombreuses autres options sont disponibles pour organiser le placement des controles sur votre feuille. 

Le redimensionnement des controles est egalement tres simple a mettre en ceuvre puisqu'il suffit de selectionner le ou 
les controles a redimensionner et de placer le curseur de la souris sur Tune des poignees de selection, pour faire 
apparaitre une fleche vous indiquant dans quelle direction vous pouvez redimensionner le controle. II faut alors cliquer 
sur le carre correspondant et deplacer la souris jusqu'a ce que le controle ait atteint la taille desiree. 
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ButtonS 



Vous pouvez egalement utiliser les fleches du clavier en association avec la touche [Shift] pour le dimensionnement des 
controles. 

Le redimensionnement par le code utilise la methode setBounds qui permet a la fois de fixer la position et la ta i I le du 
controle. Le code suivant diminue la ta i I le du bouton a chaque fois que Ton clique dessus. 



Private Sub cmdMincir_Click (ByVal sender As System. Ob ject, _ 

ByVal e As System . EventArgs ) Handles cmdMincir . Click 
cmdMincir . SetBounds (cmdMincir . Left, cmdMincir . Top, cmdMincir . Size .Width 
cmdMincir . Size . Height - 5) 
End Sub 
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Apres de nombreux efforts pour positionner et dimensionner les controles, il serait dommage qu'une erreur de 
manipulation vienne remettre tout en cause. Pour eviter ces soucis, il est possible de verrouiller les controles sur la 
feuille, par le menu Format - Verrouiller les controles. Cette commande bloque le deplacement et le 
redimensionnement de tous les controles presents sur la feuille ainsi que le redimensionnement de la feuille elle-meme. 
Les controles peuvent ensuite etre deverrouilles par la meme option de menu. Vous pouvez egalement deverrouiller 
les controles individuellement par la proprieteiocked. 

Si vous concevez une application dans laquelle I'utilisateur peut redimensionner la fenetre au moment de I'execution, 
les controles doivent suivre les modifications de ta i I le de la fenetre. Pour autoriser le redimensionnement automatique 
d'un controle, vous pouvez utiliser la propriete Anchor du controle. Par Tintermediaire de cette propriete, vous indiquez 
que la distance entre les bords du controle et les positions d'ancrage sera conservee lors du redimensionnement de la 
fenetre. A la creation, les controles sont ancres aux bords haut et gauche de la feuille. La modification de cette 
propriete s'effectue par un petit assistant, disponible dans la fenetre de proprietes. 



Anchor 



BackColor 
Backgrounding 

I 



CausesValidatior 
ContextMenu 
Cursor 



1 J™ 

| Top^ Left t| 


-' 

NUI It! 


y 


■ ■ ■ 



DialogResult 

Pour modifier la propriete anchor, selectionnez la branche de I'etoile correspondant au cote avec lequel vous voulez 
realiser un ancrage, ou supprimer un ancrage existant. 

Par exemple, pour la fenetre suivante, les controles sont ancres a gauche et a droite. 



=jmjxj 




Si nous redimensionnons la fenetre, les controles suivent I'agrandissement horizontal de la feuille. 
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Vous pouvez egalement indiquer qu'un controle doit adapter une ou plusieurs de ces dimensions a celle de son 
conteneur. Pour cela, vous utilisez la proprieteDock du controle en indiquant sur quelle bordure de son conteneur notre 
controle va adapter une de ses dimensions. 

Par exemple, nous pouvons placer un controle PictureBox en demandant a I'amarrer a la bordure basse de la fenetre. 



Dock 



Enabled 



S Image 
S Location 
Locked 



Modifiers 
E 5ize 



SizeMode 




Bottom 



None 



Notre PictureBox s'adapte automatiquement a la largeur de la fenetre et reste collee a sa bordure basse. 




3 



3. Passage du focus entre contrdles 

Lorsque vous concevez votre application, vous devez penser aux personnes refractaires a I'utilisation de la souris en 
leur permettant quand meme d'utiliser I'application. II convient done de concevoir I'application pour qu'elle puisse 
fonctionner uniquement en utilisant le clavier (sans clavier ni souris ce sera beaucoup plus difficile !). 

Dans une application Windows, on dit d'un controle qu'il detient le focus lorsqu'il est pret a recevoir la saisie de 
I'utilisateur. Le focus peut se deplacer de controle en controle en utilisant la touche [Tab]. Deux proprietes des 
controles reglent le passage du focus par la touche [Tab]. 

• La propriete Tabstop indique si un controle pourra recevoir le focus par I'utilisation de la touche [Tab]. 

• La propriete Tabindex indique I'ordre dans lequel le focus sera passe entre les controles. 

Par defaut, les proprietes Tabindex sont numerotees dans I'ordre dans lequel les controles sont crees. 

Pour modifier cet ordre, vous pouvez modifier directement la propriete Tabindex de chaque controle ou utiliser le menu 
Affichage - Ordre de tabulation. Les controles sont alors affiches avec, dans leur coin superieur gauche, la valeur de 

leur propriete Tabindex. 
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identification du client 



-Inl x 



m 



: : □ 



norm 



D 



esse 




valider 




annuler 



Vous devez ensuite cliquer sur les controles, dans I'ordre dans lequel vous voulez que le focus soit passe. 
L'ordre suivant semble beaucoup plus logique pour cette boite de dialogue. 




Vous pouvez ensuite revenir en mode normal en utilisant a nouveau le menu Affichage - Ordre de tabulation ou en 
utilisant la touche [Echap]. 



4. Raccourcis-clavier 

Certains utilisateurs presses souhaitent pouvoir se deplacer directement sur un controle particulier sans avoir a passer 
le focus sur tous ceux qui le precedent dans l'ordre des tabulations. Vous pouvez, pour cela, ajouter un raccourci- 
clavier qui sera active par I'intermediaire de la touche [Alt] et un caractere. Pour specifier le caractere a utiliser pour 
activer le controle, il faut ajouter dans la propriete Text du controle un caractere & devant le caractere utilise pour le 
raccourci-clavier associe au controle. Cela provoque I'activation du raccourci et le soulignement du caractere dans le 
texte apparaissant sur le controle. 




Si par contre, vous voulez inserer un caractere & dans la legende de votre controle, il faut le repeter deux fois dans sa 
propriete Text. 
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| Tag 






Suite 6c& Fin 


TextAlign 


MiddleCenter 


| Visible 


True 





M identification du client 




Pour certains controles (boutons, case a cocher, bouton d'option...), I'utilisation du raccourci-clavier est equivalent a un 
die de souris et lance Taction correspondante, pour les autres, le raccourci-clavier place simplement le focus sur le 
controle correspondant. 

Pour les controles n'ayant pas de legende, il faudra passer par I'intermediaire d'un controle label qui lui servira de 
legende et activera egalement le raccourci-clavier. Nous verrons cela un peu plus loin dans ce chapitre. 



Maintenant que nous savons utiliser les controles dans une application, nous allons examiner dans le detail les plus 
utilises. 
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Les controles de VB.NET 



Chaque controle utilisable dans VB.NET est represents par une classe dont nous allons pouvoir creer des instances pour 
concevoir I'interface de I'application. La majorite des controles derivent de la classe control et de ce fait, heritent d'un 
bon nombre de proprietes de methodes et d'evenements. 

Nous allons done etudier les elements les plus utiles de la classe control. 



1. La classe Control 



a. Dimensions et position 

Les proprietes Left, Top, width, Height permettent le positionnement des controles. Ces proprietes peuvent etre 
modifiees individuellement et acceptent des valeurs de type integer. 

II est done possible dans notre code d'utiliser la syntaxe suivante : 

TextBoxNom . Lef t = 100 
TextBoxNom . Top = 50 
TextBoxNom . Width = 150 
TextBoxNom . Height = 50 

Deux autres proprietes permettent de travailler avec la position et la taille d'un controle : la propriete Location 
accepte un objet de type point grace auquel nous pouvons specifier la position de notre controle ; de la meme 
maniere, la propriete size qui accepte un objet de type size, gere les dimensions du controle. Les lignes precedentes 
peuvent etre remplacees par : 



TextBoxNom. Location = New Point (100, 50 
TextBoxNom. Size = New Size (150, 50) 



dans lesquelles nous construisons une instance de Point et de size, avant de les associer aux proprietes 
correspondantes. 

Une troisieme possibility nous permet de manipuler, a la fois, la position et la taille des controles : la propriete Bounds 
attend une instance de la classe Rectangle pour definir les caracteristiques du controle. Notre code se resume done a 
une seule ligne : 



TextBoxNom. Bounds = New Rectangle (100, 50, 150, 50) 



La methode setBounds permet egalement de modifier les positions et dimensions des controles sans avoir a creer de 
nouvelle instance de la classe Rectangle mais en modifiant celle deja associee au controle. 



TextBoxNom. SetBounds (100, 50, 150, 50) 



La modification de ces proprietes entraine le declenchement des evenements Resize et Move sur le controle. Ces 
evenements sont bien sur declenches lorsque la valeur des proprietes est modifiee dans le code, mais aussi lorsque, 
par exemple, la modification de taille de la fenetre entraine un repositionnement ou un redimensionnement du 
controle. 

Le comportement des controles lorsque la fenetre est redimensionnee est specifie par les proprietes Anchor et Dock. 
Nous avons deja vu comment modifier ces proprietes, par I'intermediaire de la fenetre de proprietes. Pour les modifier 
par le code, il suffit d'y affecter une des valeurs definies dans les enumerations Anchorstyie et Dockstyie. 
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TextBoxNom . Anchor = AnchorStyles .1 

CD IBottom 

: 

CD Left 
ffi None 
\W Right 
© Top 

TextBoxNom. Dock = DockStyle.| 

m m 

0 IBottom 

! 

m Fill 

m Left 
N® None 
lm Right 

0 Top 

Jusqu'a present, les positions avec lesquelles nous avons travaille etaient des positions exprimees par rapport au 
coin superieur gauche du conteneur du controle. Dans certains cas, il peut etre utile d'obtenir les coordonnees d'un 
point du controle non pas rapport au coin superieur gauche du controle, mais par rapport au coin superieur gauche 
de I'ecran. La methode PointToScreen permet cette conversion. El le attend, comme parametre, une instance de la 
classe Point avec les coordonnees exprimees par rapport au controle et renvoie une nouvelle instance de la classe 
Point avec les coordonnees exprimees par rapport a I'ecran. 

Le code suivant convertit, en coordonnees ecran, la position superieure gauche d'un controle TextBox : 



System. Console .Write ( "Controle /fenet re : ") 
System . Console . WriteLine (Button2 .Location) 
Dim p As Point 

p = Button2 . PointToScreen (Button2 . Location) 
System . Console . Write ( "Controle /ecran : " ) 
System . Console . WriteLine (p) 



Resultat : 

Controle/f enetre : { X= 1 0 7 , Y= 7 2 } 
Controle/ecran : { X=3 0 6 , Y=2 5 5 } 

L'operation inverse peut etre realisee par la methode pointTociient qui elle, prend comme parametre un point en 
coordonnees ecran et renvoie un point exprime en coordonnees liees au controle. Si Ton effectue l'operation inverse, 
c'est-a-dire en partant des coordonnees ecran, on obtient bien la meme valeur : 

System. Console. WriteLine ("controle / fenetre a partir de I'ecran" & 
Button2 . PointToClient (p) .ToString) 

Resultat 

controle / fenetre a partir de 1' ecran{X=107, Y=72 } 

b. Apparence des contrdles 

La couleur de fond du controle peut etre modifiee par la propriete BackCoior tandis que la couleur du texte du 
controle est modifiee par la propriete ForeCoior. 

On peut affecter a ces proprietes des valeurs definies dans I'espace de nom system. Drawing. color pour obtenir des 
couleurs predefinies dans Visual Basic. 



TextBoxNom. BackCoior = System . Drawing . Color . Yellow 



On peut egalement utiliser les constantes definies dans I'espace de nom system. Drawing. systemcoiors pour utiliser 
une des couleurs definies au niveau du systeme lui-meme. L'interet, dans ce cas, est que votre application va 
s'adapter en fonction de la configuration de la machine sur laquelle elle fonctionnera. 



TextBoxNom. BackColor=System . Drawing . SystemColors . InactiveCaptionText 



La troisieme solution consiste a effectuer le melange de couleur vous-meme, en utilisant la fonction FromArgb et en 
specifiant comme parametre la quantite de chacune des couleurs de base (Rouge, Vert, Bleu). 
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TextBoxNom . BackColor = System . Drawing . Color . FromArgb (127, 0, 127) 



La police est modifiable par la propriete Font du controle. On peut, pour I'occasion, creer une nouvelle instance de la 
classe Font et I'affecter au controle. II y a treize constructeurs differents pour la classe Font done treize fagons 
differentes de creer une police de caractere. Nous utiliserons la plus simple en indiquant, simplement, le type de 
police et la taille. 



TextBoxNom. Font = New Font ( System . Drawing . FontFamily . GenericMonospace , 16) 



Apres avoir effectue des modifications sur ces proprietes, il est possible de revenir a une configuration normale en 
appelant les methodes ResetBackCoior, ResetForeCoior, ResetFont. Les proprietes correspondantes sont 
reinitialisees avec les valeurs definies pour le conteneur du controle. 

La propriete Backgroundimage permet de specifier une image qui sera utilisee comme fond pour le controle. Si I'image 
n'est pas assez grande pour recouvrir le controle, elle est representee en mosai'que : 



BtnValider . Backgroundimage = New Bitmap ( "open . bmp" ) 




Le resultat est parfois deroutant ! 

Pour revenir a quelque chose de plus classique : 



BtnValider . Backgroundimage = Nothing 



La propriete Cursor permet de choisir I'apparence du curseur lorsque la souris se trouve sur la surface du controle. 
Plusieurs curseurs sont predefinis dans Windows. 



AppStarting 



Arrow 




SizeNESW 



T 



+ 


Cross 




Default 


I 


IBeam 




No 




SizeAll 



T 



SizeNS 



5izeNW5E 



5izeWE 



UpArrow 



WaitCursor 




Help 



HSplit 



VSplit 





□ 




NoMove2D 



NoMoveHoriz 



NoMoveVert 



PanEast 



PanNE 



PanNorth 



PanNW 



PanSE 



r. 




PanNE 



PanNorth 



PanNW 



Pan5E 



PanSouth 



PanSW 



PanWest 



Hand 



Ces curseurs sont ranges dans une collection Cursors et peuvent etre utilises directement en les affectant a la 
propriete Cursor du controle. 



BtnValider . Cursor = Cursors . WaitCursor 



Si, parmi ceux-ci, aucun ne vous convient, vous pouvez utiliser un curseur personnalise en creant une instance de la 
classe cursor et en I'affectant a la propriete cursor du controle. 



BtnValider . Cursor = New Cursor ( "h_nodrop . cur " ) 



La detection de I'entree et de la sortie de la souris sur le controle et la modification du curseur en consequence est 
geree automatiquement par le controle lui-meme. 



ftComme pour la police de caractere, il est possible de restaurer le curseur par defaut en appelant la methode 

ResetCursor. 



La modification de la plupart des proprietes des controles declenche un evenement. Ces evenements sont identifies 
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par le nom de la propriete suivi du suffixe changed. lis peuvent etre utilises pour sauvegarder les preferences de 
I'utilisateur lorsqu'il personnalise l'application. 



Private Sub Forml_BackColorChanged (ByVal sender As Object, ByVal e As 
System . EventArgs ) Handles Me . BackColorChanged 

My . Settings . CouleurFond = Me.BackColor 

My . Settings . Save ( ) 

End Sub 



c. Comportement des contrdles 

Les controles places sur une feuille peuvent etre masques en modifiant la propriete visible ou desactives en 
modifiant la propriete Enabled. Dans ce cas, le controle est toujours visible mais apparait avec un aspect grise pour 
indiquer a I'utilisateur que ce controle est inactif pour le moment. 



BtnValider . Enabled = False 




Les controles dans cet etat ne peuvent bien sur pas recevoir le focus dans l'application. Vous pouvez verifier cela en 
examinant la propriete canFocus qui renvoie un Boolean. Vous pouvez egalement verifier si un controle detient 
actuellement le focus, en verifiant la propriete Focused ou la propriete containsFocus. Cette derniere est a utiliser 
avec les controles conteneurs (c'est-a-dire les controles qui peuvent contenir d'autres controles), dans ce cas cette 
propriete est positionnee sur True si Tun des controles places a I'interieur du conteneur a le focus. 

Le focus peut etre place sur un controle sans 1'intervention de I'utilisateur, en appelant la methode focus du controle. 



BtnValider . Focus ( ) 



Pour surveiller le passage du focus d'un controle a I'autre, quatre evenements sont a votre disposition : 

• Enter indique que le focus arrive sur un des controles d'un conteneur. 

• GotFocus indique qu'un controle particulier a regu le focus. 

• LostFocus indique qu'un controle a perdu le focus. 

• Leave indique que le focus n'est plus sur un des controles du conteneur. 

Par exemple, pour bien visualiser qu'un controle a le focus, on peut utiliser le code suivant qui modifie la couleur du 
texte lorsque le controle regoit ou perd le focus : 



Private Sub TxtNom_GotFocus (ByVal sender As Object, ByVal e As System. 
EventArgs) Handles TextBoxNom . GotFocus 

TextBoxNom . ForeColor = System . Drawing . Color . Red 
End Sub 

Private Sub TxtNom_LostFocus (ByVal sender As Object, ByVal e As System. 
EventArgs) Handles TextBoxNom . LostFocus 
TextBoxNom . ResetForeColor () 
End Sub 



Dans certains cas, il est souhaitable de verifier la saisie de I'utilisateur dans un formulaire avant de continuer dans 
l'application. Cette verification peut etre effectuee a la fermeture du formulaire ou au fur et a mesure de la saisie, 
dans les differents controles du formulaire. 

Chaque controle peut etre configure pour permettre la verification de la saisie en modifiant la propriete 
Causesvaiidation sur True. Juste avant que le controle ne perde le focus, I'evenementvaiidating est declenche pour 
permettre la verification de la saisie de I'utilisateur. Si la saisie n'est pas correcte (en fonction des criteres que nous 
avons fixes), nous pouvons bloquer le passage du focus vers un autre controle en modifiant la propriete cancel de 
I'objetcanceiEventArg qui est passe comme parametre. Dans ce cas, le focus reste sur le controle pour lequel la saisie 
n'est pas correcte. Par contre, si la saisie est correcte, I'evenementvaiidated est declenche sur le controle et le focus 
se deplace sur le controle suivant. 
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Par exemple, pour saisir un numero de telephone, nous pouvons verifier que seules des valeurs numeriques ont ete 
saisies. En cas d'erreur nous generons un beep, modifions la couleur du texte et bloquons le passage du focus sur un 
autre controle. 



Private Sub TxtTel Validating (ByVal sender As 


(JDject, ByVal e As 


System . 


ComponentModel . CancelEvent Args ) Handles txtTel 


. Validating 




If Not IsNumeric (txtTel . Text) And txtTel. Text 


Then 




Beep ( ) 






ixtiei.roreLOior — oysrern . urawmg . 


LOIOI . Kea. 




e. cancel — irue 






hna 1 1 






End Sub 






Private Sub TxtTel_Validated (ByVal sender 


As Object, ByVal e 


As System. 


EventArgs) Handles txtTel . Validated 






txtTel .ResetForeColor () 






End Sub 







Deux proprietes sont parfois utiles lorsque nous travaillons avec des controles conteneur. La propriete HasChiidren 
nous permet de savoir si des controles sont places dans notre conteneur. Si c'est le cas, la collection controls 
contient la liste de tous ces controles. Nous pouvons par exemple modifier la couleur de texte de tous les controles 
d'un conteneur lorsque le focus est place sur Tun d'entre eux. 



Private Sub GroupBoxl_Enter (ByVal sender As Object, ByVal e As 
System . EventArgs ) Handles GrBoxIdent . Enter 
If GrBoxIdent . HasChiidren Then 
Dim x As Object 

For Each x In GrBoxIdent . Controls 

x.forecolor = System . Drawing . Color . YellowGreen 

Next 
End If 
End Sub 

Private Sub GroupBoxl_Leave (ByVal sender As Object, ByVal e As System. 
EventArgs) Handles GrBoxIdent . Leave 

If GrBoxIdent . HasChiidren Then 
Dim x As Object 

For Each x In GrBoxIdent . Controls 
x . reset fore color ( ) 

Next 
End If 
End Sub 



L'operation inverse est egalement possible c'est-a-dire, qu'a partir d'un controle, nous pouvons recuperer les 
proprietes de son conteneur. La propriete Parent fournit une reference vers le conteneur du controle. Nous pouvons, 
par exemple, faire en sorte que la couleur de fond de chaque controle change en meme temps que celle de son 
conteneur. 



Private Sub GrBoxIdent_BackColorChanged (ByVal sender As Object, ByVal e As 
System . EventArgs ) Handles GrBoxIdent . BackColorChanged 
If GrBoxIdent . HasChiidren Then 
Dim x As Object 

For Each x In GrBoxIdent . Controls 

x.backcolor = x . parent . backcolor 

Next 
End If 
End Sub 



Maintenant que nous avons explore les proprietes communes aux differents controles disponibles, nous allons les 
etudier un par un en explorant leurs specificites. 



2. Les controles d'affichage d'informations 

a. Le controle Label 

Le controle Label est utilise pour afficher, sur un formulaire, un texte qui ne sera pas modifiable par I'utilisateur. II sert 
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essentiellement a fournir une legende a des controles qui n'en possede pas (zones de texte par exemple, liste 
deroulante...). Dans ce cas, il permettra egalement de fournir un raccourci-clavier pour atteindre le controle. 

Le texte affiche par le controle est indique par la propriete Text. Cette propriete pourra bien sur etre modifiee par le 
code l'application. II faut cependant etre prudent car, par defaut, le controle conservera la ta i I le que vous lui avez 
donnee a la conception. Si la nouvelle chaine de caracteres affectee a la propriete Text est plus longue que celle 
specifiee au moment de la conception, seul le debut sera visible. Pour eviter ce probleme, il faut demander au 
controle Label d'adapter sa largeur en fonction du texte a afficher, en modifiant la propriete Autosize sur True. 

Par defaut, le controle Label n'a pas de bordure. Vous pouvez en ajouter une en modifiant la propriete Borderstyle, 
en utilisant Tune des trois valeurs disponibles. 

label 1 . Borders tyle=| 

.■ ■. 

IZl jSystem. Windows. Forms. Border5tyle.Fixed3D 
_eJ System . Windows . Forms . BorderStyle . FixedSingle 
IZl System . Windows . Forms . BorderStyle . None 



Vous avez aussi la possibility d'indiquer la position du texte dans le controle par I'intermediaire de la propriete 
TextAiign. Dans le code, vous utiliserez Tune des constantes predefinies. 

labell . TextAlign= 

^■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■^ 

IZl | Content Alignment. BottomCenter 

IZl Content Alignment. BottomLeft 

M Content Alignment. BottomRight 

IZl ContentAlignment.MiddleCenter 

IZl Content Alignment. MiddleLeft 

IZl Content Alignment. MiddleRight 

IZl ContentAlignment.TopCenter 

Zl ContentAlignment.TopLeft 

Zl Content Alignment. TopRight 



Par la fenetre de propriete, il suffit de cliquer sur la position desiree pour le texte a I'interieur de votre controle. 



| TextAiign [ 


liddleRight _J 










j 



















AA noter cependant que la propriete TextAiign modifiera la position du texte uniquement si la propriete 
Autosize est positionnee sur False. 



Les controles Label peuvent egalement afficher des images. Vous pouvez indiquer I'image a afficher a I'aide de la 
propriete image. Une autre solution consiste a utiliser un controle imageList qui servira, en quelque sorte, de 
stockage pour les images de I'application. Dans ce cas, vous indiquez, par I'intermediaire de la propriete imageList, 
dans quel controle vous allez chercher I'image, et par la propriete imageindex a quel endroit elle se trouve dans le 
controle imageList. Si vous utilisez un controle imageList, la propriete image de votre controle sera ignoree. Comme 
pour le texte, vous pouvez modifier la position de I'image dans le controle par la propriete imageAiign avec les memes 
constantes que pour la propriete TextAiign. 

Nous avons indique que le controle Label pouvait etre utilise comme raccourci-clavier pour un autre controle. Pour 
cela, trois precautions sont a prendre. 

• Comme pour les autres controles, ajouter un & dans la propriete Text pour le caractere utilise comme 
raccourci. 

• Indiquer au controle Label son role de gestionnaire de raccourci-clavier en modifiant la propriete useMnemonic 
sur True. 

• Verifier que le controle, qui doit recevoir le focus, est immediatement apres le controle Label dans I'ordre des 
tabulations (propriete Tabindex). 
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b. Le contrdle LinkLabel 



Le controle LinkLabel herite de toutes les caracteristiques du controle Label et ajoute simplement des fonctionnalites 
de lien style web. Les proprieties supplementaires par rapport au controle Label gerent les differents parametres du 
lien. 

La propriete LinkArea indique quelle portion du texte activera le lien. Cette propriete peut etre modifiee, par 
1'intermediaire de la fenetre de proprietes, avec un petit utilitaire dans lequel vous devez selectionner la portion de 
texte constituant le lien. 




Les couleurs utilisees pour le lien sont modifiables par trois proprietes : 

LinkColor 

couleur du lien a I'etat normal. 

VisitedLinkColor 

couleur du lien apres une premiere utilisation. 

ActiveLinkColor 

couleur du lien au moment ou Ton clique dessus. 

L'apparence du lien est modifiable par la propriete LinkBehavior. 



| LinkEehavior 


SystemDefault tI 




SystemDefault 


AlwaysUnderline 

HoverUnderline 

NeverUnderline 



Les quatre valeurs possibles permettent respectivement : 

• d'utiliser la meme configuration, pour les liens, que votre navigateur ; 

• d'avoir les liens toujours soulignes ; 

• d'avoir les liens soulignes lorsque la souris les survole ; 

• de ne jamais avoir les liens soulignes. 

Lorsque I'utilisateur clique sur le lien, I'evenement Linkciicked est declenche dans I'application ; a vous d'ecrire du 
code, pour executer une action dans votre application. 

Vous devez egalement modifier la propriete Linkvisited en la positionnant sur True, pour indiquer que ce lien a deja 
ete utilise dans Tapplication. 

L'action peut etre I'ouverture d'une page d'un site Web dans le navigateur par defaut, comme dans I'exemple 
suivant : 



Private Sub LienMicrosof t_LinkClicked (ByVal sender As System . Ob ject , ByVal e 
As System . Windows . Forms . LinkLabelLinkClickedEventArgs ) Handles LinkLabell. 
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LinkClicked 

System . Diagnostics . Process . Start ( " http :/ /www . microsoft . fr ") 
LinkLabell . LinkVisited = True 
End Sub 



Ou encore, I'affichage d'une nouvelle feuille dans notre application comme dans I'exemple suivant : 



Private Sub LienMicrosof t_LinkClicked (ByVal sender As 


System . Ob ject , ByVal e 


As System . Windows . Forms . LinkLabelLinkClickedEventArgs ) 


Handles LienMicrosof t . 


LinkClicked 




Dim feuille As dlgPerso 




feuille = New dlgPerso () 




feuille . ShowDialog ( ) 




LienMicrosof t . LinkVisited = True 




End Sub 





c. Le controle StatusStrip 

Le controle StatusStrip est generalement utilise pour presenter des informations a I'utilisateur, concernant le 
fonctionnement de I'application. II peut afficher les informations sur plusieurs types zones. Les informations peuvent 
etre affichees sous forme de texte, de barre de progression, de menu ou de bouton de commande associe a un 
menu. Un editeur specifique accessible par la propriete items du controle permet sa configuration. 



Editeur de collections Items 



Silesfonnes un element aicutes'lb a la iste ci*dessous 




A StatusLabel 
Manibre& : 



* ■ 



A ToolStripStatusLabell 

[3 TaolStripSlplitEuCtjOnl 









Horizontal 


si 




UseWaitCurscr 


Fake 




B 


CoinpottemertL 
















Fake 






Adokvltemfteordcr 


Fafee 








True 






CorttexbMenuStrip 


^aucun) 






Enabled 


True 






Imefrlode 


fJoContral 






ShowltemToolTips 


Fafcs 






T-ablndex 


_ 






TabStop 








Visible 


True 




B Design 












(Name) 

^ . mm 1 




StatusStrip 1 


















OK 


Annufier | 



Chaque element ajoute sur le controle StatusStrip doit ensuite etre configure individuellement. Les proprietes des 
elements pouvant etre utilises pour la construction d'une StatusStrip sont tres semblables a celles des controles 
normaux. Par exemple, I'element TooistripstatusLabel est pratiquement identique au controle LinkLabei. 

d. Le controle ToolTip 



Ce controle permet I'affichage d'une bulle d'aide associee a un controle. Ce controle n'a pas d'interface visible, il sera 
done place dans la zone situee en dessous de la fenetre de conception. II effectue beaucoup de travail sans aucun 
effort de programmation. II surveille, par exemple, en permanence ou se trouve la souris ; si celle-ci est sur un 
controle, il verifie s'il y a une info-bulle associee au controle et si e'est le cas, il affiche I'info-bulle pendant la duree 
specifiee par la propriete AutoPopDeiay. 

Pour pouvoir fonctionner, le controle ToolTip doit associer une chaine de caracteres a chacun des controles de 
I'interface. Pour cela, des qu'un controle ToolTip est disponible sur une feuille, une propriete ToolTip est ajoutee a 
chacun des controles, permettant ainsi de specifier le texte de I'info-bulle associee au controle. 
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ToolTip sur ToolTipl 



Rouge 



Ei |ccn_ileur verte pour le texte 
C Noir 



Les chaines de caracteres associees a chaque controle peuvent egalement etre indiquees par I'intermediaire du code, 
en appelant la methode setTooiTip et en indiquant comme parametre, le nom du controle et la chaine de caracteres, 
qui lui est associee. 



ToolTipl . SetTooiTip (RadioButton3 , " Couleur bleu pour le texte ") 



Cette technique permet de conserver des legendes relativement courtes pour les controles, tout en fournissant 
suffisamment d'informations sur I'utilisation de I'application. 




e. Le Controle ErrorProvider 



Ce controle permet d'indiquer facilement a I'utilisateur des problemes sur les donnees qu'il a saisies, sur un 
formulaire. En general, il intervient l ors de la phase de validation des donnees du formulaire, en affichant en face de 

chaque controle une petite icone © afin d'attirer I'attention de I'utilisateur. Des informations supplementaires 



peuvent etre fournies par une info-bulle associee au controle ErrorProvider. 

Un meme controle ErrorProvider peut etre utilise pour tous les controles d'un formulaire. 

L'activation du controle ErrorProvider peut s'effectuer a la fermeture du formulaire lorsque I'utilisateur clique sur le 
bouton OK, mais il est egalement possible de surveiller la saisie au fur et a mesure ou elle est effectuee en gerant 
par exemple les evenements validating. Cet evenement est declenche par un controle au moment ou celui-ci perd le 
focus. Nous pouvons, dans ce cas, verifier immediatement la valeur saisie dans le controle et reagir en consequence 
en affichant notre controle ErrorProvider. Pour cela, nous appelons la methode setError en specifiant le nom du 
controle qui nous pose probleme et la chaine de caracteres affichee dans I'info-bulle associee au controle. S'il n'y a 
pas d'erreur, il faut reinitialiser la chaine pour faire disparaitre I'icone du controle ErrorProvider. 



Private Sub TextBoxl_Validating (ByVal sender As Object, ByVal e As System. 
ComponentModel . CancelEventArgs ) Handles TextBoxl . Validating 

If Not IsNumeric (TextBoxl . Text ) Then 

ErrorProviderl . SetError (TextBoxl , " Valeur numerique Obligatoire ") 

Else 

ErrorProviderl . SetError (TextBoxl , " " ) 
End If 

End Sub 




f . Le controle Notifylcon 

Ce controle est principalement utilise pour afficher des informations sur le fonctionnement d'un processus s'executant 
en tache de fond dans I'application. II est affiche dans la zone de statut du systeme. La propriete icon du controle 
determine I'icone affichee. La propriete Text represente la legende affichee lorsque la souris survole le controle. 



_ Double cliquer 


pour la configuration du service 




|fr1 





En gerant I'evenement Doubleclick du controle, vous pouvez afficher une boite de dialogue permettant la 
configuration du processus associe au controle. 
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Private Sub IconService_DoubleClick (ByVal sender As Object, ByVal e As 
System . EventArgs ) Handles IconService . Doubleclick 

Dim dig As Conf igService 

dig = New Conf igService 

dig . ShowDialog ( ) 
End Sub 



II est egalement possible d'associer un menu contextuel, en renseignant la propriete contextMenustrip. Ce menu 
peut, par exemple, controler le fonctionnement du processus auquel est associe le controle. 





Arreter 

5uspendre 

Demarrer 








Ji£«ftfc#9ib 22:07 

SI 



g. Le controle HelpProvider 

Le controle HelpProvider assure la liaison entre un fichier d'aide et I'application. Le fichier d'aide doit etre genere par 
I'outil Html Help workshop, disponible en telechargement sur le site Microsoft. Pour nos exemples, nous utiliserons un 
fichier d'aide existant sur le systeme : le fichier C:\WII\IDOWS\ Help\charmap.chm correspondant a I'utilitaire Table des 
caracteres. Ce fichier doit etre associe au controle par la propriete HeipNamespace. La presence d'un controle 
HelpProvider sur une fenetre, ajoute automatiquement trois proprietes a chaque controle present sur la fenetre : 

HelpKeyword 

Indique le mot cle associe au controle dans le fichier d'aide. 

HelpNavigator 

Indique Taction executee lors de I'affichage de I'aide. 

HelpString 

Contient la chaine de caracteres affichee lors de I'utilisation du bouton | ? | d'une boite de dialogue. Pour que ce 

bouton soit disponible sur la boite de dialogue, il faut modifier la proprieteHeipButton de la fenetre sur True et 
masquer les boutons d'agrandissement et de reduction de la fenetre, en modifiant les proprietes MaximizeBox et 

MinimizeBox SUr False. 

L'exemple suivant associe au bouton de commande cmdok, la rubrique d'aide Vue d'ensemble de la table de 

caracteres du fichier charmap.chm et configure le systeme d'aide, pour que cette rubrique soit affichee 
automatiquement lorsque la touche [Fl] est utilisee. 



HelpKeyword on HelpProvider 1 


Vue d'ensemble de la table de caracteres 


HelpNavigator on HelpProvider 1 


Associatelndex 


| Help5tring on HelpProvider 1 


chaine affichee lors de ('utilisation du bouton ? 





h. Le controle ProgressBar 

Ce controle est utilise pour informer I'utilisateur sur la progression d'une action lancee dans I'application. II affiche 
cette information sous la forme d'une zone rectangulaire, qui sera plus ou moins remplie en fonction de I'etat 
d'avancement de Taction executee. L'aspect de la ProgressBar est controle par sa propriete Style. Trois valeurs sont 
disponibles : 

Continuous 

La progression est affichee par une barre bleue pleine. 

Blocks 

La progression est affichee par une serie de petits rectangles. 
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Marquee 



Cette presentation est identique a la precedente avec, en plus, un defilement a I'interieur de la ProgressBar. 

La position de la barre de progression est controlee par la propriete value. Cette propriete peut evoluee entre les 
deux extremes indiques par les proprietes Minimum et Maximum. 

Trois techniques sont disponibles pour faire evoluer la barre de progression : 

• Modifier directement la propriete value du controle. A noter que dans ce cas, si la valeur de cette propriete 
depasse les extremes, une exception est declenchee. 

• Utiliser la methode Performstep qui incremente a chaque appel la propriete value de la valeur contenue dans 
la propriete step. Le controle verifie, dans ce cas, la valeur contenue dans la propriete value et s'assure 
qu'elle ne depassera pas les extremes. 

• Utiliser la methode increment en indiquant comme parametre, la valeur utilisee comme increment pour la 
propriete value. La valeur de la propriete value est egalement verifiee lors de I'execution de cette methode. 



C\ Si la ProgressBar a le style Marquee, la propriete value n'a aucun effet sur la taille de la barre de progression et 
les methodes Performstep et increment ne doivent pas etre utilisees, sinon une exception est declenchee. 



L'exemple suivant presente une horloge originale ou I'heure est affichee par trois ProgressBar : 



Public Class Horloge 
Public Sub New() 

A This call is required by the Windows Form Designer. 
InitializeComponent () 

A Add any initialization after the InitializeComponent ( ) call. 
pgbHeure . Minimum = 0 
pgbHeure . Maximum = 23 

pgbHeure . Style = ProgressBarStyle . Continuous 
pgbMinute . Minimum = 0 
pgbMinute . Maximum = 5 9 

pgbMinute . Style = ProgressBarStyle . Continuous 
pgbSeconde . Minimum = 0 
pgbSeconde . Maximum = 5 9 

pgbSeconde . Style = ProgressBarStyle . Continuous 
Timerl . Interval = 500 
Timerl . Enabled = True 
End Sub 

Private Sub Timerl_Tick (ByVal sender As Object, ByVal e 
As System . EventArgs ) Handles Timerl. Tick 
pgbHeure . Value = Now. Hour 
pgbMinute . Value = Now. Minute 
pgbSeconde . Value = Now. Second 
End Sub 
End Class 




3. Les contrdles d'edition de texte 
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a. Le contrdle TextBox 



Le controle TextBox est utilise pour permettre a I'utilisateur de saisir des informations. Le controle peut etre configure 
pour saisir du texte sur une ou plusieurs lignes. La taille maximale du texte varie de 2000 a 32000 caracteres, suivant 
la configuration du controle (simple ligne ou multiligne). Le controle est egalement capable de gerer la selection de 
texte et les operations avec le presse-papiers. De nombreuses proprietes et methodes sont disponibles pour 
travailler avec ce controle. Le texte affiche dans le controle peut etre modifie ou recupere par la propriete Text. Le 
format d'affichage du texte est modifiable par differentes proprietes. La propriete Autosize permet de demander au 
controle TextBox de se redimensionner, en fonction de la taille de la police de caracteres. Cette propriete est presque 
toujours positionnee sur True. La propriete characterCasing autorise le controle a modifier tous les caracteres saisis 
soit en minuscules soit en majuscules. 



| CharacterCasing 


Normal t| 




Normal 


Upper 
Lower 



La propriete Lines permet de recuperer le texte saisi, ligne par ligne. Cette propriete est un tableau de chaines de 
caracteres qui contient autant de cases qu'il y a de lignes. El le n'a d'interet que si le controle est configure pour 
accepter la saisie sur plusieurs lignes avec la propriete Multiline positionnee sur True. Dans ce cas, il faut egalement 
prevoir la possibility de faire defiler le texte, en ajoutant des barres de defilement avec la propriete scroiiBars. Les 
differentes possibilites permettront d'avoir une barre de defilement horizontale, verticale ou les deux. Attention 
cependant car la barre de defilement verticale ne sera visible que si la propriete wordwrap est positionnee sur False 
sinon le controle gere lui-meme le retour a la ligne lorsque la longueur de la ligne depasse la largeur du controle. Par 
contre, dans ce cas les retours chariot ajoutes automatiquement ne sont pas inseres dans le texte. 



II fait beau aujoud'hui sur la 
region nantaise. 
Pourvu que ca continue 

Dans cet exemple, la propriete Lines contiendra deux elements car le premier retour chariot est simplement ajoute 
par le controle pour I'affichage. 

Lines(0)-> II fait beau aujourd'hui sur la region nantaise 
Lines(l)-> Pourvu que ga continue 

La longueur maximale du texte du controle est fixee par la proprieteMaxLength. A noter que dans le cas d'un controle 
multiligne, les caracteres retour chariot et saut de ligne sont egalement comptes. Cette propriete est frequemment 
utilisee lorsque Ton utilise le controle TextBox pour la saisie d'un mot de passe. Dans ce cas, la propriete 
Passwordchar indique le caractere utilise a I'affichage, pour masquer la saisie de I'utilisateur. En general, on utilise le 
caractere * ou #. Cette propriete n'influence bien sur que I'affichage, et les caracteres saisis par I'utilisateur sont 
toujours recuperes dans la propriete Text. 

La gestion de la selection du texte se fait automatiquement par le controle. La propriete seiectedTextpermet de 
recuperer la chaine de caracteres actuellement selectionnee dans le controle. Les proprietes Seiectionstart et 
seiectionLength indiquent respectivement le caractere de debut de la selection (le premier caractere a I'indice 0) et le 
nombre de caracteres de la selection. Ces proprietes sont egalement utilisees pour inserer du texte dans le 
controle : la propriete Seiectionstart indique, dans ce cas, le point d'insertion et la propriete seiectedText, le texte 
a inserer. Pour I'ajout de texte a la suite de celui deja present dans le controle, il est plus pratique d'utiliser la 
methode AppendText en passant comme parametre la chaine de caracterse a ajouter. 

Le remplacement d'une portion de texte dans le controle TextBox se fait en deux etapes. II faut d'abord selectionner 
le texte que Ton veut remplacer a I'aide des proprietes Seiectionstart et SeiectionLength, puis indiquer le texte de 
remplacement avec la propriete SeiectedText. Le texte remplace et le texte de remplacement ne doivent pas 
forcement avoir la meme taille. 



TextBoxl . Seiectionstart = 39 
TextBoxl . SeiectionLength = 8 
TextBoxl . SeiectedText = "Quest" 



C\ La selection de texte peut egalement s'effectuer avec la methode select, en indiquant le caractere de debut 
de la selection et le nombre de caracteres de la selection. 



TextBoxl . Select (39,8) 
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TextBoxl . SelectedText = "Quest" 



II fait beau aujourd'hui sur 
la region Quest 
Pourvu que ca continue 



La selection de la totalite du texte peut etre effectuee avec la methode seiectAii. Par exemple, on peut forcer la 
selection de tout le texte lorsque le controle regoit le focus. 



Private Sub TextBoxl_GotFocus (ByVal sender As Object, ByVal e As System. 
EventArgs) Handles TextBoxl . GotFocus 
TextBoxl . SelectAll ( ) 

End Sub 



De maniere classique, des qu'un controle perd le focus, la selection de texte qu'il y avait a I'interieur du controle n'est 
plus visible. La propriete HideSeiection positionnee sur False permet de conserver la selection visible, meme si le 
controle n'a plus le focus. 




Pour la gestion du presse-papiers, le controle TextBox dispose d'un menu contextuel permettant d'effectuer les 
operations courantes. Vous avez cependant la possibility d'appeler les methodes copy, cut et paste pour gerer les 
operations de copier coller d'une autre maniere, par exemple un menu de I'application. Les operations couper et coller 
ne seront cependant pas possibles si le controle TextBox est configure en lecture seule avec la propriete Readonly 
positionnee sur True, la modification du texte par I'utilisateur est bien dans ce cas impossible. 

Tout le monde ayant droit a I'erreur, le controle TextBox nous propose la methode undo permettant d'annuler la 
derniere modification de texte effectuee sur le controle. Cette methode est deja utilisable par I'option annuler du 
menu contextuel du controle TextBox ou par le raccourci-clavier [Ctrl] Z. El le peut bien sur etre appelee par un autre 
menu de votre application. II n'y a qu'un seul niveau de "undo", vous ne pourrez revenir au texte que vous avez saisi, 
il y a deux heures ! 

Est egalement disponible sur ce controle, I'evenement Textchanged qui se produit lorsque la propriete Text du 
controle est modifiee (par le code de I'application ou par I'utilisateur). Attention a ne pas modifier la propriete Text de 
votre controle dans le code de cet evenement sinon vous risquez de generer un debordement de pile a I'execution de 
I'application, comme dans I'exemple ci-dessous. 



Private Sub TextBoxl_TextChanged (ByVal sender As System . Ob ject , ByVal e As 
System . EventArgs ) Handles TextBoxl . TextChanged 
TextBoxl . Text = Rnd ( ) 

End Sub 



b. Le controle MaskedTextBox 

Ce controle est une amelioration du controle TextBox car il permet de verifier automatiquement que les informations 
saisies correspondent a ce qui est attendu par I'application. La propriete Mask determine le format des informations 
pouvant etre saisies dans le controle. L'editeur accessible par la fenetre de proprietes, permet de choisir un masque 
existant ou de configurer votre propre masque. 
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Masque de saisie 



Selectionnez une description de masque predefini dans la liste ci-dessous ou bien I'option 
Personnalise pour definir un masque personnalise. 



Description du masque 


Format des donnees 


| Type de validation 


Code postal (France) 


91450 


(aucun) 


Date (format court) 


28/11/2005 


DateTime 


Date et heure (format long) 


28/11/2005 14:30 


DateTime 


Heure 


14:30 


DateTime 


Numerique (5 chiffres) 


12345 


Int32 


Numero de Securite Sociale (. . . 


1 63 11 78 012 345 48 


(aucun) 


■Nurnero de telephone (France) 


01 23 45 67 89 


(aucun) I 






(aucun) 



Masque : |00 00 00 00 00 00 
Apercu : 




P Utiliser ValidatingType 




Pour la propriete Mask, certains caracteres ont une signification particuliere : 

0 represente un chiffre obligatoire (0 a 9) 

9 represente un chiffre ou un espace optionnel 

L represente une lettre obligatoire (de a a z ou A a Z). 

? represente une lettre optionnelle. 

C represente un caractere quelconque 

. represente le separateur decimal 

, represente le separateur des milliers 

: represente le separateur horaire 

/ represente le separateur de date 

$ represente le symbole monetaire 

< les caracteres suivants seront transformed en minuscules. 
> les caracteres suivants seront transformed en majuscules 
| annule I'effet des deux caracteres > et < 

\ caractere d'echappement faisant perdre sa signification speciale au caractere suivant 

- Tous les autres caracteres sont affiches tels quels dans le controle. 

Le masque suivant peut, par exemple, etre utilise pour la saisie d'une adresse IP : 

000\.000\.000\.000 

c. Le controle RichTextBox 

Le controle RichTextBox permet I'affichage, la saisie et la manipulation de texte avec mise en forme. II possede les 
memes fonctionnalites que le controle TextBox mais il est capable de gerer des polices de caractere differentes, des 
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couleurs differentes, des images, etc. II propose en fait toutes les fonctions de base d'une application de traitement 
de texte. Nous allons done detailler ces principales fonctions. 

Chargement et enregistrement de fichier 

Les methodes LoadFile et saveFiiepermettent le chargement et I'enregistrement depuis ou vers un fichier. Le seul 
parametre obligatoire pour ces deux fonctions represente le chemin d'acces complet vers le fichier a charger ou a 
sauvegarder. Le format de fichier utilise par defaut par ces deux fonctions est le format rtf (Rich Text Format). Si 
d'autres formats de fichier doivent etre utilises nous devons alors le specifier par un deuxieme parametre qui est une 
constante de Enumeration RichTextBoxStreamType. Dans le cas d'une lecture de fichier il est important que les 
informations contenues dans le fichier soient en accord avec la constante utilisee. 

Par exemple, la lecture d'un fichier texte normal avec la ligne de code suivante declenchera une exception. 



rtb . LoadFile (dlgOuvrir . FileName, RichTextBoxStreamType . RichText ) 



Par contre, il n'y a pas de probleme pour I'enregistrement car e'est le controle RichTextBox qui gere lui-meme le 
format des informations inscrites dans le fichier. Le seul risque est de perdre les informations de mise en page 
contenues dans le controle si un format d'enregistrement inadapte est utilise. Par exemple la ligne suivante fera 
perdre toutes les informations de formatage lors de I'enregistrement du fichier. 



rtb . SaveFile (dlgEnregistrer . FileName, RichTextBoxStreamType . PlainText ) 



Ajout de texte 

Le controle RichTextBox gere son contenu grace a deux proprietes : 

• la propriete Text qui, comme pour les autres controles, definit les informations affichees dans le controle. 
C'est le texte brut qui est stocke dans cette propriete. 

• La propriete Rtf contient elle aussi le texte affiche par le controle mais elle contient en plus les informations 
concernant la presentation du texte. 

Pour ajouter du texte a un controle nous pouvons definir la propriete Text ou la propriete Rtf. Dans ce second cas, il 
faut egalement inclure les caracteres de formatage utilises par le controle pour la mise en forme du texte. Les codes 
Rtf etant loin d'etre simples cette solution est rarement utilisee. Heureusement une solution plus souple existe. 

La methode AppendText permet d'ajouter une chaine de caracteres au contenu du controle RichTextBox. Le formatage 
de la chaine a ajouter doit etre defini au prealable par I'intermediaire des proprietes de la selection. 

La propriete seiectionFont determine la police utilisee pour I'affichage du texte ajoute. Pour ajouter du texte en gras 
et souligne il faut done modifier les caracteristiques de la police. Plus exactement il faut creer la police desiree car il 
n'est pas possible de modifier les caracteristiques d'une police existante puisque ses proprietes sont en lecture 
seule. 

rtto . Se lect ionFont . Bo Id = True 
La propriete 'Bold' est 'Readonly 1 . 



La syntaxe suivante est correcte pour la modification des caracteristiques de la police existante. 

rtb . Select ionFont = New Font ( rtb . Select ionFont , Font Style . Bold + 
FontStyle . Underline ) 

Les couleurs du texte et du fond sont determinees par les proprietes seiectionCoior et seiectionBackCoior. 



rtb . SelectionBackColor = Color. Beige 
rtb . SeiectionCoior = Color. Red 



L'alignement du texte est represente par la propriete seiectionAiignment a laquelle vous devez affecter une des 

valeurs de I'enumeration HorizontalAlignment. 



rtb . SeiectionAiignment = HorizontalAlignment . Center 



4. Les controles de declenchement d'actions 
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a. Le contrdle Button 



Le controle Button est principalement utilise, dans une application, pour lancer I'execution d'une action. Cette action 
peut etre I'execution d'une portion de code ou la fermeture d'une boite de dialogue. Comme pour les controles vus 
jusqu'a present, le libelle du bouton est modifiable par la propriete Text du controle. Cette propriete Text peut 
contenir un & pour creer un raccourci-clavier. Lorsque le bouton est utilise pour la fermeture d'une boite de dialogue, 
vous devez indiquer par I'intermediaire de la propriete DiaiogResuit, la valeur qui sera renvoyee lorsque la boite de 
dialogue sera fermee par ce bouton. Les valeurs utilisables pour cette propriete, correspondent aux boutons 
standards rencontres sous Windows. 



| DiaiogResuit 


OK 




None 


OK 




Cancel 




Abort 




Retry 




Ignore 




Yes 




No 



Lorsque Ton cree une boite de dialogue, il y a generalement au moins un bouton de validation et un bouton 
d'annulation. On peut indiquer que, pour cette boite de dialogue, I'utilisation de la touche [Entree] sera equivalente a 
un die sur le bouton de validation, et I'utilisation de la touche [Echap] sera equivalente a I'utilisation du bouton 
d'annulation. II convient, pour cela, d'indiquer dans la propriete AcceptButton de la fenetre, le nom du controle 
correspondant au bouton de validation et dans la propriete canceiButton, le nom du controle utilise pour I'annulation. 



b. Le contrdle MenuStrip 

La majorite des applications disposent d'une barre de menus. Par I'intermediaire de ces menus, I'utilisateur pourra 
activer les differentes fonctionnalites de I'application. Les menus sont constitues d'elements de menus permettant le 
lancement d'actions dans I'application ou I'apparition d'un sous-menu. Dans ce cas, un petit triangle a cote du libelle 
de menu previent I'utilisateur de la presence d'un sous-menu. Les menus peuvent egalement servir a activer ou non 
une option, dans ce cas, un petit repere est affiche devant le libelle du menu pour marquer I'activation de I'option. 
Pour les inconditionnels du clavier, il est egalement possible d'associer a un menu une combinaison de touches 
equivalente a un die sur le menu. 

La figure suivante presente toutes ces notions. 



3 Form 15 



Fichier Edition 




Options 



configuration 



identification 



D 



■ gras 


Ctrl+G - 


italique 


Ctrl+I 


■ souligne 


Ctrl+5 



couleur 



taille 



alignement 



Voyons maintenant comment mettre tout cela en ceuvre. La premiere chose a faire est d'inserer un controle 
MenuStrip sur la feuille. Ce controle se place a deux endroits dans le concepteur : 



• dans la zone reservee aux controles invisibles ; 



• directement sur la fenetre, a la place d'une barre de menu standard. 
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C'est a partir de cet endroit que vous allez pouvoir composer le menu. Le concepteur de menu vous propose les 
differentes zones dans lesquelles vous pouvez saisir les informations constituant le menu. 



FOtTlYE 



Flcher Edition 



Options 






canftguraitin ► 




Taile 


u 


Identification 

Grra 
Soukgne 


1 


fllqnema nt 


□ 




Typp Were 




Type hfere 



Vous pouvez ainsi composer completement la barre de menu et visualiser son apparence au fur et a mesure de sa 
conception. 

A chaque fois que vous inserez un element, le concepteur cree une nouvelle instance de la classeTooistripMenuitem 
et I'insere dans la collection Items, pour les titres de menus et dans la collectionDropDownltems, pour les elements 
de menu et de sous-menu. 

Le menu contextuel, affiche par un die droit, permet I'ajout d'une barre de separation. 



Fich*pr 6*;tari Opflgn?; 

U / U ConfgLraturi * 



1 



Qp fJfu'htr it rc-$± 



Bubiari 



I !3H 



Gan^titr en 



Lfltfrfci 



75 HodJpeu' to D«(OowiBems r . . 



hlenultem 



-J Ca«r 



•iM TtttflOK 




^ &C!iii4t*5 



II reste maintenant a configurer les proprietes de chacun des elements de menu. 
Regardons les proprietes les plus interessantes : 

Text 

Contient le libelle du menu. 

Visible 

Permet de masquer un element de menu. 

Enabled 

Permet d'interdire I'utilisation de I'element. II apparait alors en grise dans le menu. 

Checked 

Indique si I'element de menu est coche ou non. 

CheckOnClick 
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Permet de changer automatiquement I'etat du menu a chaque die. La valeur de la propriete checked est, dans ce cas, 
inversee a chaque die sur le menu. 

ShortcutKeys 

Definit la combinaison de touches equivalente a un die sur le menu. 
Cette propriete est facilement modifiable par la fenetre de proprietes : 

Modificateurs : 

P jcE) r Shift r Alt 
Touche : 

G ReinitiaHser 



La propriete showShortCutKeys autorise I'affichage du raccourci a cote du libelle du menu. 



Ces proprietes sont aussi modifiables par le code. Si, par exemple, une barre d'outils est egalement disponible, les 
actions realisees avec celle-ci doivent bien sur agir sur I'etat du menu correspondant et la reciproque doit aussi etre 
vraie. 



Private Sub btnGras_Click (ByVal sender As System . Ob ject , 


ByVal e 


As System. 


EventArgs) Handles btnGras . Click 






MnuGras . Checked = btnGras . Checked 






End Sub 






Private Sub btnItalique_Click (ByVal sender As System. 


Object , 


ByVal e As 


System . EventArgs ) Handles btnltalique . Click 






Mnultalique . Checked = btnltalique . Checked 






End Sub 






Private Sub btnSouligne_Click (ByVal sender As System. 


Object , 


ByVal e As 


System . EventArgs ) Handles btnSouligne . Click 






MnuSouligne . Checked = btnSouligne . Checked 






End Sub 






Private Sub MnuGras_Click (ByVal sender As System. Ob ject , ByVal e As System. 


EventArgs) Handles MnuGras . Click 






btnGras . Checked = MnuGras . Checked 






End Sub 






Private Sub MnuItalique_Click (ByVal sender As System. 


Object , 


ByVal e As 


System . EventArgs ) Handles Mnultalique . Click 






btnltalique . Checked = Mnultalique . Checked 






End Sub 






Private Sub MnuSouligne_Click (ByVal sender As System. 


Object , 


ByVal e As 


System . EventArgs ) Handles MnuSouligne . Click 






btnSouligne . Checked = MnuSouligne . Checked 






End Sub 







Dans certains cas, il est necessaire d'ajouter dynamiquement des elements pendant le fonctionnement de 
I'application pour ajouter par exemple la liste des derniers fichiers utilises dans I'application. 

La solution consiste a ajouter, a la collection DropDownltems, un nouvel element en utilisant la methode Add. 



MnuFichier . DropDownltems . Add ("essai.txt") 

Cette operation ajoute bien un element au menu, mais il ne nous sera pas d'une grande utilite ! II nous est en effet 
impossible de pouvoir recuperer les evenements click sur ce menu. 

Pour resoudre ce probleme, nous devons utiliser une syntaxe differente de la methode Add nous permettant 
d'associer un gestionnaire d'evenement au nouvel element ajoute. 

II faut d'abord creer la procedure qui sera utilisee pour la gestion de cet evenement : 

Private Sub FichiersRecent_Click (ByVal sender As System . Ob ject , ByVal e As 
System . EventArgs ) 
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End Sub 



Puis, au moment d'ajouter I'element de menu, nous devons indiquer que notre procedure sera responsable de la 
gestion des evenements click sur le menu. 



MnuFichier . DropDownltems . Add ("essai . txt", Nothing, New System . EventHandler 
(AddressOf FichiersRecent_Click) ) 



c. Le menu ContextMenuStrip 

Le menu contextuel permet d'associer aux differents controles de I'interface de I'application, un menu qui sera affiche 
lors d'un die avec le bouton droit de la souris sur le controle. Les menus doivent d'abord etre congus en ajoutant sur 

la feuille des COntroleS ContextMenuStrip. 

Ce controle apparait^ sur la barre de menu de I'application, juste pour vous permettre de saisir les differents 
elements du menu. A noter qu'un menu contextuel ne comporte pas de titre mais permet simplement la saisie 
d'elements de menu et de sous-menus. II faut ensuite associer, a chaque controle, le menu contextuel correspondant 
par I'intermediaire de la propriete ContextMenuStrip. 



| ContextMenuStrip 


(none) » 


1 Cursor 


(none) 


loock 


mnuCtxConfig 


Enabled 


mnuCtxCouleur 



L'affichage du menu se fera automatiquement lorsque I'utilisateur fera un die droit sur le controle correspondant. 



d. Le controle ToolStrip 



Le controle Tooistrip et toutes les classes associees sont utilises pour la creation de barres d'outils. Ce controle sert 
en fait de conteneur pour les elements constituant une barre d'outils. Ces elements sont ajoutes au controle 
Tooistrip par I'intermediaire du menu qui est affiche en cliquant sur la petite fleche presente a gauche sur le 
controle. 



01 Formi 



_ 



■ 



a 1 


! 




Button 


A 


Label 


0 


SplitButton 




DropDownButton 




Separator 


_ .-. 

- V 


ComboBox 


fabll 

1 1 i 


TextBox 


mi t\ 


ProgressBar 



Cette solution permet de creer une barre d'outils de A a Z en y ajoutant tous les elements un a un. Dans beaucoup 
d'applications, les barres d'outils comportent un ensemble de boutons standard. Pour nous faciliter la tache, le 
controle Tooistrip contient un assistant pour generer automatiquement une barre d'outils avec toutes les 
fonctionnalites de base d'une application. Vous devez pour cela cliquer sur la petite fleche presente sur la droite du 
controle et choisir I'option Ajouter des elements standard. La barre d'outils prend alors I'apparence suivante. 



H Formi 






! J Li Q jfc - Ji dt 


i i m .i * 







Les boutons classiques sont ajoutes automatiquement a la barre d'outils. La 'magie' de I'assistant s'arrete ici car il n'y 
a, bien sur, pas de code genere automatiquement pour reagir aux dies sur ces differents boutons. Vous devez done 
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I'ecrire vous-meme comme pour tous les autres controles de I'interface de I'application. 



e. Le contrdle ToolStripContainer 

Le but de ce controle est de faciliter la conception d'une fenetre lorsque celle-ci doit contenir plusieurs barres d'outils. 
Ce controle est generalement place sur une fenetre avec la propriete Dock positionnee sur Fill pour occuper toute la 
surface disponible de la fenetre. 

II dispose sur chacune de ses bordures d'un conteneur pour accueillir les differentes barres d'outils. Par defaut ces 
conteneurs ne sont pas visibles et il faut done les activer avant de pouvoir y ajouter des elements. Pour cela, vous 
devez cliquer sur les petites fleches presentes sur les onglets en peripherie du controle. 




f — * 1 



Une nouvelle zone devient active sur laquelle il est possible de placer un ou plusieurs Tooistrip. Attention ces 
differentes zones ne peuvent contenir que des controles Tooistrip. La zone centrale peut par contre contenir 
n'importe quel controle. 

L'avantage de I'utilisation du controle ToolStripContainer reside dans la possibility de modifier la disposition des 
barres d'outils pendant I'execution de I'application. Pour deplacer une barre d'outils, I'utilisateur doit la saisir en 
cliquant sur les trois points presents sur la barre d'outils et realiser un glisser deplacer vers une des bordures de la 
fenetre. La barre d'outils vient alors s'ancrer sur la bordure correspondante. 




5. Controles de selection 
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a. Le controle CheckBox 



Le controle CheckBox est utilise pour proposer a I'utilisateur plusieurs options, parmi lesquelles il pourra en choisir une 
ou plusieurs. Le controle CheckBox peut en general prendre deux etats : coche lorsque I'option est selectionnee ou 
non coche lorsque I'option n'est pas selectionnee. Une troisieme possibility correspond a un etat indetermine de la 
case a cocher ; dans ce cas, elle apparait en grise. L'etat de la case a cocher peut etre verifie ou modifie par la 
propriete checked. Cette propriete fournit un boolean qui reflete I'etat de la case. Si la case a cocher est configuree 
pour fonctionner avec trois etats possibles, en positionnant la propriete Threestate surTrue, la propriete checkstate 
indique I'etat de la case a cocher par I'intermediaire d'une des valeurs definies dans I'enumeration. 



checldooxl . CheckState = 

C=] j Checkstate. Checked 

M Checkstate. Indeterminate 

IZl Check5tate, Unchecked 



Comme pour les autres controles, la propriete TextAiign permet de modifier la position du texte sur le controle. La 
propriete checkAiign, suivant le meme principe, permet de modifier la position de la case a cocher par rapport au 
texte. 

Par defaut, le controle CheckBox gere lui-meme I'affichage de la coche et la modification des proprietes checked et 
checkstate en fonction des actions de I'utilisateur. Vous pouvez reprendre la responsabilite de la gestion de I'etat de 
la case a cocher, en modifiant la propriete AutoCheck sur False. Dans ce cas, vous devez gerer I'evenement click et 
modifier par le code, dans la gestion de cet evenement, la propriete checked ou la propriete checkstate. L'exemple de 
code, ci-apres, permet de modifier les caracteristiques de la police de caractere d'un controle TextBox. 

Dans cet exemple, nous travaillons avec I'evenement checkedchanged du controle CheckBox qui nous indique chaque 
changement de I'etat de la case a cocher. 



TestCheckboH 




I Example de texte 




Gras 
jidjgud 



P' Souligne 



Private Sub chkGras_CheckedChanged (ByVal sender As System . Ob ject, ByVal e As 
System . EventArgs ) Handles chkGras . CheckedChanged 

Dim style As Integer 

style = TxtExemple . Font . Style 

If chkGras . Checked Then 

style = style Or FontStyle . Bold 

Else 

style = style And Not FontStyle . Bold 
End If 

TxtExemple . Font = New Font (TxtExemple . Font , style) 

End Sub 



Private Sub chkItalique_CheckedChanged (ByVal sender As System . Ob ject , ByVal e 
As System . EventArgs ) Handles chkltalique . CheckedChanged 

Dim style As Integer 

style = TxtExemple . Font . Style 

If chkltalique . Checked Then 
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style = style Or FontStyle . Italic 

Else 

style = style And Not FontStyle . Italic 
End If 

TxtExemple . Font = New Font (TxtExemple . Font , style) 

End Sub 

Private Sub chkSouligne_CheckedChanged (ByVal sender As System . Ob ject , ByVal e 
As System . Event Args ) Handles chkSouligne . CheckedChanged 

Dim style As Integer 

style = TxtExemple . Font . Style 

If chkSouligne . Checked Then 

style = style Or FontStyle . Underline 

Else 

style = style And Not FontStyle . Underline 
End If 

TxtExemple . Font = New Font (TxtExemple . Font , style) 

End Sub 



b. Le contrdle RadioButton 

Le controle RadioButton permet egalement de proposer a I'utilisateur differentes options parmi lesquelles il ne pourra 
en selectionner qu'une seule. Comme son nom I'indique, ce controle fonctionne comme les boutons permettant de 
selectionner une station sur un poste de radio (Vous ne pouvez pas ecouter trois stations de radio en meme 
temps !). Les proprietes sont strictement identiques a celles disponibles dans le controle checkBox hormis la propriete 
checkstate car ce controle ne peut avoir que deux etats et un boolean est suffisant pour representer I'etat du 
controle. 

Completons notre exemple precedent en ajoutant des options pour ralignement du texte : 




Private Sub optGauche_CheckedChanged (ByVal sender As System . Ob ject , 
By Val e As System . EventArgs ) Handles optGauche . CheckedChanged 

If optGauche . Checked Then 

TxtExemple . TextAlign = HorizontalAlignment . Lef t 

End If 

End Sub 

Private Sub optDroite_CheckedChanged (ByVal sender As System . Ob ject , 
By Val e As System . EventArgs ) Handles optDroite . CheckedChanged 

If optDroite . Checked Then 

TxtExemple . TextAlign = HorizontalAlignment . Right 

End If 

End Sub 

Private Sub optCentre_CheckedChanged (ByVal sender As System . Ob ject , 
By Val e As System . EventArgs ) Handles optCentre . CheckedChanged 
If optCentre . Checked Then 
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TxtExemple . TextAlign = HorizontalAlignment . Center 

End If 



II est conseille, lorsque I'interface de votre application contient des controles RadioButton, qu'il y en ait toujours un de 
selectionne a I'affichage du formulaire (correspondant a I'option par defaut). 

Completons notre application en ajoutant le choix de la couleur du texte : 




Private Sub optNoir_CheckedChanged (ByVal sender As System. 


Object, 


ByVal 


e 


As 


System . EventArgs ) Handles optNoir . CheckedChanged 










TxtExemple . ForeColor = System . Drawing . Color . Black 










End Sub 










Private Sub optVert_CheckedChanged (ByVal sender As System. 


Object, 


ByVal 


e 


As 


System . EventArgs ) Handles opt Vert . CheckedChanged 










TxtExemple . ForeColor = System . Drawing . Color . GreenYellow 








End Sub 










Private Sub optBleu_CheckedChanged (ByVal sender As System. 


Object, 


ByVal 


e 


As 


System . EventArgs ) Handles optBleu . CheckedChanged 










TxtExemple . ForeColor = System . Drawing . Color . Blue 










End Sub 











Nous avons quelques soucis pour le fonctionnement de notre application, car il n'est pas possible de choisir une 
option d'alignement et une option de couleur simultanement. Les controles RadioButton etant congus de telle sorte 
qu'ils ne puissent pas y en avoir deux selectionnes simultanement dans un meme conteneur. La solution a notre 
probleme passe done par I'utilisation d'un conteneur pour isoler les controles les uns des autres. C'est ce que nous 
verrons avec les controles GroupBox et Panel. 



c. Le controle ListBox 

Le controle ListBox propose a I'utilisateur une liste de choix dans laquelle il pourra en selectionner un ou plusieurs. 
Le controle gere automatiquement I'affichage des elements avec, au besoin, I'ajout d'une barre de defilement sur le 
controle. Les elements affiches dans la liste peuvent etre saisis au moment de la conception, dans la fenetre de 
proprietes, ou modifies par le code. En regie generale, les elements de la liste sont des chaines de caracteres mais 
peuvent etre n'importe quel type d'objet. Par defaut, le controle ListBox propose les elements sous forme de liste 
avec un defilement vertical. 



ROUGE 
VERT 
BLEU 
JAUNE 




La propriete Multicoiumn positionnee sur True permet d'avoir un defilement horizontal de la liste. 



ROUGE BLEU 
VERT JAUNE 




Dans ce cas, la propriete coiumnwidth indique la largeur de chacune des colonnes. La propriete integraiHeight evite 
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d'avoir un element de la liste partiellement visible. 



ROSE ±\ 
□RANGE 

Rl ANT __■ 



Si cette propriete est positionnee sur True, la liste se redimensionne pour n'afficher que des elements complets. 

Les elements de la liste sont geres sous forme de collection, par la propriete items. Nous pouvons done ajouter des 
elements a la liste en utilisant la methode Add de la collection et en passant, comme parametre, I'objet a inserer dans 
la liste. Dans la majorite des cas, I'objet insere est une chaine de caracteres mais n'importe quel autre type d'objet 
peut etre utilise. II faut cependant que I'objet ajoute dispose d'une methode Tostring pour permettre I'affichage par 
le controle ListBox. 



Public Class couleur 

Public nom As String 

Public valeur As System . Drawing . Color 

Public Sub New(ByVal n As String, ByVal v As System . Drawing . Color ) 

nom = n 

valeur = v 
End Sub 

Public Overrides Function toStringO As String 

Return nom 
End Function 

End Class 



LstCouleurs . Items .Add (New couleur ("rouge", System . Drawing . Color . Red) ) 
Lst Couleur s . Items . Add (New couleur ( "vert " , System . Drawing .Color . Green) ) 



Les elements sont ajoutes a la fin de la liste sauf si la propriete sorted est positionnee sur True car, dans ce cas, les 
elements de la liste sont tries par ordre croissant. La methode insert ajoute un element dans la liste, a un 
emplacement precis (le premier element de la liste se trouve a I'emplacement zero). Pour inserer un element en 
deuxieme position, nous utiliserons le code ci-apres : 



LstCouleurs . Items . Insert ( 1 , New couleur ( "Jaune", System . Drawing . Color . Yellow) ) 



L'effacement d'un element de la liste s'effectue avec la methode RemoveAt en passant comme parametre I'index de 
I'element a supprimer. 



LstCouleurs . Items . RemoveAt ( 0 ) 



On peut aussi effectuer un nettoyage complet de la liste avec la methode clear. 



LstCouleurs . Items . Clear ( ) 



Deux methodes sont utiles, lors de I'ajout d'elements dans la liste, si Ton veut eviter les doublons. La methode 
Findstring recherche le premier element de la liste qui commence par la chaine de caracteres specifiee. Cette 
fonction renvoie I'index de I'element correspondant au critere ou la valeur -1, si rien n'est trouve. La meme chose 
peut etre effectuee avec la methode Findstring Exact mais, dans ce cas, il faut une concordance exacte des chaines 
de caracteres. 

Par defaut, les ListBox n'autorisent que la selection d'un element. La propriete seiectionMode permet de choisir 
quatre modes de selection : 



SeiectionMode 


None M 




None 1 


One 

MultiSimple 
MultiExtended 



• Le premier (None) risque d'etre frustrant pour I'utilisateur car la ListBox sera pleinement fonctionnelle mais le 
die souris ne produira aucun effet. 
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• L'option One est la valeur par defaut ou chaque die de souris selectionne I'element et deselectionne I'element 
precedemment selectionne dans la liste. 

• Avec l'option MultiSimple, chaque die sur un element inverse son etat. II peut y avoir plusieurs elements 
selectionnes en meme temps. 

• La derniere option Multi Extended permet egalement la selection de plusieurs elements mais offre la 

possibility de selectionner plusieurs elements successifs rapidement. En selectionnant le premier, puis en 
utilisant la touche [Shift] et en cliquant sur le dernier, tous les elements presents entre les deux sont 
egalement selectionnes. 

II faut bien sur recuperer, dans le code, la ou les selections de I'utilisateur. Dans le cas d'une selection simple, la 
proprieteseiectedindex indique I'indice, dans la collection Items, de I'element selectionne alors que la propriete 
seiecteditem fournit une reference vers I'objet selectionne dans la liste. 

Pour les selections multiples, le principe de fonctionnement est le meme mais les informations sont renvoyees sous 
forme de collection. La collectionSelectedlndices nous propose la liste des indices des elements selectionnes, alors 
que la collection Selected Items nous donne la liste des objets selectionnes. Dans les deux cas, il faut parcourir la 
liste pour extraire les elements. 



Dim o As Object 

For Each o In ListBoxl . Selectedltems 
System . Console . WriteLine (o) 

Next 



Le fait de stocker des objets dans la collection Items nous permet d'avoir acces, par I'intermediaire de la propriete 
seiecteditem, a toutes les proprietes de I'objet. Nous pouvons ainsi, par exemple, dans le cas ou nous avons utilise 
des objets couleurs, utiliser la propriete valeur. 

Dans I'exemple suivant, nous modifions la couleur de fond de la feuille en fonction de la selection dans la ListBox. 
Pour cela, nous gerons I'evenementseiectedindexChanged qui se produit a chaque nouvelle selection de I'utilisateur. 



Private Sub LstCouleur_SelectedIndexChanged (ByVal sender As System . Ob ject , 
ByVal e As System . EventArgs ) Handles ListBox2 . SelectedlndexChanged 
Me.BackColor = ListBox2 . Seiecteditem . valeur 

End Sub 



d. Le controle NumericllpDown 

Le controle NumericUpDown est I'association d'une zone de texte et de deux boutons. Ces deux boutons servent a 
incrementer ou decrementer la valeur affichee dans la zone de texte. Ce controle est tres simple a utiliser. La valeur 
qu'il est charge de gerer est stockee dans la propriete value. El le peut evoluer entre deux extremes represented par 
les proprietes Minimum et Maximum. Le pas decrementation est defini par la propriete increment. Toutes ces valeurs 
peuvent etre des valeurs decimales. Le format d'affichage peut etre modifier par la propriete DecimaisPiaces qui 
permet de specifier le nombre de decimales affichees. Cette propriete intervient uniquement au niveau de I'affichage 
et ne change pas la valeur de la propriete value. Voici comme exemple un petit morceau de code qui simule le 
fonctionnement d'un thermostat de chauffage. Ce n'est bien sur pas la temperature de votre bureau qui sera 
modifiee par I'application, mais la couleur de fond de la fenetre du bleu pour le plus "froid" au rouge pour le plus 
"chaud". 



Private Sub NumericUpDownl_ValueChanged (ByVal sender As Object, ByVal e 
As System . EventArgs ) Handles Thermostat . ValueChanged 

Me.BackColor = Color . FromArgb (25 * (Thermostat . Value 
- 15), 0, 25 * (25 - Thermostat .Value) ) 
End Sub 

Private Sub Forml_Load (ByVal sender As Object, ByVal e As System. EventArgs ) 
Handles Me. Load 

Me . Thermostat . DecimalPlaces = 1 

Me . Thermostat . Increment = 0.1 

Me . Thermostat . Maximum = 25 

Me . Thermostat . Minimum = 15 

Me . Thermostat . Value = 15 

End Sub 
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e. Le controle TrackBar 



Ce controle propose un aspect plus visuel du controle NumericUpDown tout en fournissant les memes fonctionnalites. II 
se presente sous la forme d'un potentiometre sur lequel Ton peut deplacer un curseur pour ajuster une valeur 
numerique. Contrairement au controle NumericUpDown, il n'y a pas d'affichage de la valeur et celle-ci ne peut etre 
qu'une valeur entiere. Les deux valeurs extremes sont definies par les proprietes Minimum et Maximum. 

Deux pas decrementation sont egalement disponibles avec les proprietes smaiichange et LargeChange. La propriete 
Smaiichange est utilisee pour incrementer ou decrementer la valeur lors de I'utilisation des fleches de deplacement du 
clavier. La propriete LargeChange est utilisee suite a la frappe des touches page suivante ou page precedente. Si le 
curseur du potentiometre est deplace a I'aide de la souris, la propriete value correspond a I'emplacement du curseur. 
Aucun des deux pas decrementation n'est utilise dans ce cas. Pour faciliter I'ajustement d'une valeur, des reperes 
sont places sur le potentiometre. Leur espacement est determine par la propriete TickFrequency. 



f. Le controle DomainllpDown 

Ce controle a pratiquement le meme fonctionnement que le controle Listbox. II se presente comme une zone de 
texte a laquelle sont associes deux boutons permettant le deplacement dans une liste d'elements. La principale 
propriete de ce controle est la propriete items qui contient les elements proposes dans la liste. Les seules differences 
avec le controle Listbox sont liees aux selections multiples qui sont impossibles pour ce controle et la propriete wrap 
permettant le parcours de la liste de maniere circulaire. 

g. Le controle CheckedListBox 

Ce controle est une amelioration du controle ListBox et de ce fait fonctionne pratiquement de la meme maniere. La 
seule limitation par rapport au controle ListBox est q u 'il n'accepte pas les selections multiples. L'evolution par rapport 
au controle ListBox reside dans les cases a cocher presentes devant les elements de la liste. Ces cases peuvent etre 
cochees independamment de la selection des elements. La recuperation des cases cochees est possible par 
I'intermediaire de la propriete checkeditems. Cette collection contient tous les elements coches de la liste. 



For Each elt In CheckedListBoxl . Checkeditems 

Console . WriteLine (elt . ToString) 

Next 



Une autre solution pour obtenir les elements coches de la liste consiste a parcourir la liste et a tester avec la 
methode Getitemchecked si la case correspondante est cochee. 



For i = 0 To CheckedListBoxl . Items . Count 


- 1 


If CheckedListBoxl . Get ItemChecked (i) 


Then 


Console .WriteLine (CheckedListBoxl . Items (i) ) 


End If 




Next 





La propriete checkonciick determine si I'activation ou la deactivation de la case a cocher se fait sur le premier die 
d'un element dans la liste (true) ou si un double die est necessaire pour changer I'etat de la case a cocher (false). 



h. Le controle ComboBox 

Le controle ComboBox est I'association d'un controle ListBox et d'un controle TextBox. L'utilisateur pourra, suivant la 
configuration du controle, choisir un element dans la liste ou saisir du texte. 

La propriete DropDownstyle indique le mode de fonctionnement de la ComboBox. 



DropDownStyle 


Simple t| 




Simple 


DropDown 
DropDownList 



Simple 

L'utilisateur selectionne un element dans la liste ou saisit du texte dans la zone de texte. La liste est affichee en 
permanence. 

DropDown 
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Meme configuration, mais la liste n'est affichee qu'a la demande de I'utilisateur. 

DropDownList 

L'utilisateur ne peut plus saisir dans la zone de texte mais simplement choisir un element de la liste, apres avoir 
demande son affichage. 

L'etat de I'affichage de la liste est controle par la propriete DroppedDown. On peut, par exemple, ecrire du code pour 
que la liste soit deroulee des que le controle regoit le focus. 



Private Sub ComboBoxl_GotFocus (ByVal sender As Object, ByVal e As System. 
EventArgs) Handles ComboBoxl . GotFocus 

ComboBoxl . DroppedDown = True 
End Sub 



II n'est pas possible de realiser des selections multiples avec le controle comboBox. Le texte peut etre recupere dans 
la propriete Text. Cette propriete est mise a jour meme si l'utilisateur a selectionne un element dans la liste. Dans ce 
cas, la propriete seiectedindex est egale a I'index de I'eleiment selectionne. Si l'utilisateur a saisi du texte 
directement, cette propriete est egale a -1. 



i. Le controle TreeView 



Le controle TreeView permet la presentation d'informations, sous forme d'une arborescence identique a la 
presentation des fichiers et des dossiers dans I'explorateur de Windows. Chaque element est represents sous forme 
d'un noeud pouvant eventuellement contenir des nceud enfants. Chaque element peut etre affiche sous forme 
developpee ou reduite, par I'intermediaire du signe (plus ( + ) ou moins (-)) affiche en face de chaque nceud. 



□■ ■^ Peugeot 
206 
307 

- 406 

^ Berline 
^ Break 
gj? Coupe 
B-iCk Renault 

uuu 

Megane 
Laguna 



S-ffl 



□ pel 



Astra 



La propriete Nodes contient la liste de tous les nceuds de premier niveau de I'arborescence. Chacun d'entre eux 
dispose egalement d'une proprieteNodes, qui stocke a son tour la liste de tous ses nceuds enfants et ainsi de suite 
jusqu'au dernier niveau de I'arborescence. Ces proprietes Nodes sont modifiables au moment de la conception, par un 
editeur specifique accessible par la fenetre de proprietes. 
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Editeur TreeNode 



J?JXJ 



Selectionner un Qoeud a mocSf ier 



a Peugeot 



*w Renault 
i- rf* Opel 



# 



Ajouter une racine 



Ajouter un gnrant 



Eropriebes Moeudl :. 





Checked 




*• 




ContextMenu 


(aucun) 






ContextMenuStrip 


{aucun) 






ForeColor 








Imageindex 




2 






Image^ey 




{par def aut) 






[I.JlX 


0 








Nam* 


Nceudl 






NodePont 


(aucun) 






Selettedlniagelndejt 


I 


(par def aut) 






SelectedlnnageKey 




(par def aut) 






Sbatelmagelridex 




(aucun) 




ImagelndeM 

La valeur de Itndex dli IroageUst a£ NcMe lorsque b noeuc 
d'arbre est dens un fltst nofi sefecUQfine . 


1 



OK 



Armufer 



Le bouton Ajouter une racine ajoute un element racine a la propriete Nodes du controle Treeview. Pour chaque 
element, il convient egalement d'indiquer son libelle par la propriete Text, I'image affichee sur le noeud par la 
propriete imageindex ainsi que Timage affichee, lorsque le nceud est selectionne dans Tarborescence, par la propriete 

Selectedlmage Index. 

Ces images sont extraites du controle imageiList que vous aurez, au prealable, associe a la propriete imageiist du 
controle. Ce controle imageList doit bien sur etre cree et rempli avant la modification des proprietes du controle 

TreeView. 

Chaque nceud possede done une image, pour son affichage normal, et une image, pour son affichage lorsqu'il est 
selectionne. La valeur (Default) pour ces deux images indique que le nceud n'utilisera pas une image specifique, mais 
les images par defaut qui sont indiquees dans les proprietes imageindex et seiectedimageindex du controle Treeview. 
Vous pouvez de cette fagon utiliser des images identiques pour tous les nceuds. Seuls ceux ayant un affichage 
particulier necessiteront la modification des valeurs par defaut. 

L'ajout de nceud dans I'arborescence par le code est un petit peu plus complexe. II faut creer un nouveau nceud en 
instanciant la classe TreeNode et en indiquant, dans I'appel du constructeur de la classe, la legende affichee sur le 
nceud. L'image et I'image de selection sont egalement a preciser si vous ne voulez pas utiliser les valeurs par defaut. 
La creation d'un nceud peut done prendre les deux formes suivantes. 



Dim noeud As TreeNode 

noeud = New TreeNode ( "Twingo" ) 



ou bien 



Dim noeud As TreeNode 

noeud = New TreeNode ( "Twingo 2, 3) 



en indiquant, dans ce cas, I'index de I'image pour I'affichage normal, suivi de I'index pour I'affichage lorsque le nceud 
sera selectionne. 

II faut ensuite "raccrocher" ce nouveau nceud a une branche de notre arborescence, en utilisant methode Add du 
nceud qui va devenir le parent du petit nouveau. 

Ainsi, pour ajouter un enfant a la deuxieme racine de I'arborescence, nous utiliserons le code suivant : 



TreeViewl . Nodes ( 1 ) . Nodes . Add (noeud) 



Vous pouvez aussi supprimer un nceud par le code, en utilisant la methode RemoveAt de la collection correspondante. 
Par exemple, pour supprimer la Peugeot 206, nous utiliserons le code suivant : 



TreeViewl . Nodes ( 0 ) . Nodes . RemoveAt ( 0 ) 



Lorsque Ton travaille avec le controle Treeview, on a frequemment besoin de savoir sur quel element du controle 
I'utilisateur a clique (pour afficher les caracteristiques du vehicule dans notre cas). 
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Dans I'evenement AfterSeiect du controle Treeview, on dispose, par Tintermediaire du parametre e, une reference 
sur le nceud sur lequel I'utilisateur a clique. La propriete Text de cet element nous permet done d'identifier le nceud 
du controle Treeview et de reagir en consequence. 



Private Sub TreeViewl_Af terSelect (ByVal sender As System . Ob ject , ByVal e As 
System . Windows . Forms . TreeViewEventArgs ) Handles TreeViewl . AfterSeiect 
Select Case e. Node. Text 
Case "Peugeot" 

System. Console . WriteLine ( "Peugeot " ) 
Case "Renault" 

System .Console . WriteLine ( "Renault " ) 
Case "Opel" 

System. Console . WriteLine ( "Opel" ) 
End Select 

End Sub 



j. Le controle ListView 



Ce controle fournit la possibility de presenter des informations, a I'utilisateur, de quatre fagons differentes comme le 
permet le volet droit de I'explorateur de Windows. 



Test ListView 



C Grandes Icones Petite? Icones 
C IJste ^rEJetH 



i@ Test LfetView 



106 

3D? 



<z 206 



Type 


I I 


Puissance 




105 


10AD0 


7 




2UB 


7500 


G 


307 


11000 


9 



C Grandes Icones <*' IPetiteslcones 
r Liste r Detail 




Test ListView 





~_ ^ — i 
W 




10G 


20G 


307 



(* i Grandes icones ^ Petite? Icones 
C Liste C Detail 




ivst L istView 




Giandes Icones Petites Icones 



C Detail 



Comme pour le controle Treeview, ce controle dispose d'une collection Items stockant les informations a afficher. 
Cette collection peut etre remplie par un editeur specifique accessible depuis la fenetre de proprietes de vb. 



© ENI Editions - All rigths reserved 



Editeur de collections ListViewIfcem 



Membres : 





Proprietes List Vie wltem: -(106)- : 



+ - 




SI 





□ Afficher 

IndentCount 

□ Apparence 

BackColor 
Checked 




S Font 



ForeColor 
Text 
ToolTipText 



Microsoft Sans 5e 
HP WindowTeKt 

106 



UseltemStyleFor^ True 
□ Comportement 




Group 


(aucun) 


Imagelndex 




t 



OK 



Annuler 



Cet editeur permet d'ajouter ou de supprimer des elements dans I'affichage du controle et pour chacun d'entre eux, 
la modification de la legende par la propriete Text et de I'image associee par la propriete imagelndex. La 
proprietesubitems est egalement une collection utilisee lors de I'affichage detaille. Cette collection contient les 
informations affichees dans chacune des colonnes du mode detaille. 

Les colonnes sont creees par la propriete columns du controle. Un editeur specifique est egalement disponible pour la 
gestion des colonnes. 



Editeur de collections ColumnHeader 



Membres : 



? x 




Proprietes ColumnHeader 1 : 



+ - 





Ajouter j 


Supprimer | 





Comportement 


Displaylndex 


0 


Design 


(Name) 


ColumnHeader 1 


GenerateMember 


True 


Modifiers 


Friend 


Divers 


Imagelndex 


1 | (aucun) 


ImageKey 


1 I (aucun) 




type 


TextAlign 


Left 


Width 


60 


Donnees 



OK 



Annuler 



La propriete Text correspond au titre des colonnes. Chaque colonne est associee aux elements qui auront ete saisis 
dans la propriete Subitems. Resumons tout cela avec la presentation de nos vehicules et de leurs caracteristiques. 

Pour chaque vehicule a afficher, il faut inserer un element dans la collection Items du controle Listview. Pour chacun 
de ces elements, la propriete subitems doit contenir les informations utilisees pour I'affichage en mode detail (le type 
du vehicule, son prix et sa puissance). 

II faut ensuite ajouter trois colonnes a la propriete columns du controle Listview (type, prix, puissance). 

Pour terminer la configuration, les proprietes LargeimageList et smaiiimageList indiquent respectivement les 
controles imageList ou seront recuperees les images pour I'affichage en mode Grandes Icones ou Petites Icones. 

Le type de presentation de I'affichage est modifiable par la propriete view : 
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Private Sub optGrande_CheckedChanged (ByVal sender As System . Ob ject , ByVal 
e As System . Event Args ) Handles optGrande . CheckedChanged 
ListViewl . View = View . Largelcon 
End Sub 

Private Sub optPetites_CheckedChanged (ByVal sender As System. Ob ject , 
ByVal eAs System . EventArgs ) Handles optPetites . CheckedChanged 
ListViewl . View = View . Smalllcon 
End Sub 

Private Sub optListe_CheckedChanged (ByVal sender As System . Ob ject , ByVal e 
As System . EventArgs ) Handles optListe . CheckedChanged 
ListViewl . View = View. List 
End Sub 

Private Sub optDetail_CheckedChanged (ByVal sender As System . Ob ject , 
ByVal e As System . EventArgs ) Handles optDetail . CheckedChanged 
ListViewl . View = View. Details 
End Sub 



6. Les contrdles de regroupement 



a. Le contrdle GroupBox 

Le controle GroupBox permet le regroupement logique et visuel de controles sur un formulaire. Le controle possede 
une bordure et une legende apparaissant sur la bordure haute. Ce controle facilite egalement le placement des 
controles sur la fenetre, car apres avoir place les controles sur le GroupBox, ceux-ci se deplacent en bloc avec le 
controle GroupBox. II permet egalement d'isoler les RadioButtons, les uns des autres, lorsqu'ils doivent fonctionner de 
maniere independante. 



b. Le contrdle Panel 



Le controle Panel dispose des memes fonctionnalites que le controle GroupBox. II ne dispose cependant pas de 
propriete Text et ne permet done pas I'affichage d'une legende. Par contre, il possede une propriete Borderstyle 
permettant de supprimer I'affichage de la bordure. Nous avons, dans ce cas, des controles qui sont regroupes 
logiquement sans indication visible de ce regroupement. La propriete AutoScroii du controle permettra d'afficher 
automatiquement des barres de defilement si sa surface n'est pas suffisante pour afficher I'ensemble des controles 
qui lui sont confies. 




Pour ces deux controles, la modification de la propriete Enabled desactivera egalement I'ensemble des controles qui 
sont places a I'interieur, sans avoir a modifier cette propriete pour chacun des controles. 
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c. Le controle TabControl 

Le controle TabControl affiche plusieurs onglets similaires aux intercalaires d'un classeur. L'utilisation principale de ce 
controle est la creation de boite de dialogue a plusieurs onglets. 

La propriete principale TabPages contient la liste de toutes les pages associees au controle. Un editeur specifique 
nous permet la manipulation de ces pages. 



Editeur de collections TabPage 



Mennbres : 
| 0 | TabPagel 




Proprietes TabPage2 : 



mm 



OK 





ImeMode 


NoControl 






Locked 


False 




m 


Margin 








Modifiers 


Friend 


_Jjj 


m 


Padding 


*^|S *3 






RightToLeft 




n 

5555555 


m 


5ize 


192; 74 


||§ 




Tag 




III 
iil;!;; 




Text 


Couleur 




1 




ToolTip sur ToolTi 








ToolTipText 








UseVisualStyleBat 


True 






UseWaitCursor 


False 













Chaque onglet est considere comme une page, sur laquelle on pourra placer des controles. Pour chacun des onglets, 
on retrouve d'ailleurs beaucoup de proprietes deja disponibles sur les fenetres. 



x ^ Configuration de la police 





Gauche 




Droite 


J 


Centre 



^insertion de controles s'effectue en selectionnant au prealable I'onglet de destination, puis en dessinant les 

controles dessus, de la meme maniere que sur une fenetre classique. Si votre boite de dialogue contient de 

nombreux onglets, vous pouvez choisir de les afficher sur plusieurs lignes en modifiant la propriete Multiline du 
controle. 
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I! 



Position | 
Taille Couleur 



C Rouge 
C Vert 
r Bleu 



II est egalement possible d'interdire I'utilisation de tous les controles presents sur un onglet, en modifiant la propriete 
Enabled de I'onglet. Par exemple, pour interdire I'utilisation de I'onglet Couleur : 



TabControll . TabPages ( 1 ). Enabled = False 



Comme pour beaucoup d'autres controles, une propriete imageList permet d'associer des images bitmap a chacun 
des onglets, par I'intermediaire de la propriete imageindex de chaque onglet. 

d. Le contrdle SplitContainer 

Ce controle permet la creation d'interface utilisateur comparable a I'explorateur Windows. II separe la fenetre en 
deux parties par une barre horizontale ou verticale. Cette barre peut etre deplacee par I'utilisateur pour 
redimensionner chacune des zones delimitees. II est frequemment associe avec un controle Treeview dans sa partie 
gauche et un ensemble de controles dans la partie droite permettant la modification de I'element selectionne dans le 
TreeView. Cette presentation est par exemple utilisee dans I'outil MMC (Microsoft Management Console), par lequel de 
nombreux parametres de fonctionnement du systeme sont configurables. Chaque partie du controle est utilisable 
comme un containeur pour d'autres controles. 



testTabControl 



x| 




r Vert 



r Bleu 



La propriete orientation indique le sens dans lequel est decoupe la surface du controle. Le dimensionnement de 
chacune des deux zones peut etre interdit avec la propriete isSpiitterFixed positionnee sur True. II est egalement 
possible d'interdire le redimensionnement d'une seule zone avec la proprieteFixedPanei. Dans ce cas, si les 
dimensions du conteneur du controle (la fenetre) sont modifiees, une seule zone est redimensionnee. La propriete 
orientation determine bien sur le sens de decoupage du controle. 

e. Le contrdle FlowLayoutPanel 

Le controle FlowLayoutPanel organise automatiquement le placement des controles que vous lui confiez. En fonction 
de la valeur de la propriete FiowDirection, les controles seront disposes : 

• de la gauche vers la droite ; 

• de la droite vers la gauche ; 



du haut vers le bas ; 



du bas vers le haut. 
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FlowDirection 


| LeftToRighthJ 




LeftToRight | 


TopDown 

RightToLeft 

BottomUp 



Si I'espace disponible n'est pas suffisant pour I'ajout d'un controle supplemental, la proprietewrapContents indique 
si une nouvelle colonne ou ligne est ajoutee, en fonction de I'orientation dans laquelle le controle FiowLayoutPanei 
travaille ou si les controles supplementaires sont tronques. 



f. Le controle TableLayoutPanel 



II est parfois important qu'un formulaire conserve un aspect correct lorsqu'il est redimensionne. La premiere solution 
nous venant a I'esprit consiste a gerer un des evenements survenant pendant le dimensionnement de la fenetre, 
Resize, Layout par exemple et de modifier les positions et dimensions des controles en consequence. Cette solution 
est tres lourde a mettre en ceuvre et doit etre repetee sur chaque formulaire. L'autre solution, plus efficace est de 
demander a un gestionnaire de positionnement de gerer la ta i I le et position des controles qu'on lui confie. Le controle 
TableLayoutPanel est specialise pour ce travail. Ce conteneur organise son contenu sous forme d'une grille un petit 
peu de la meme maniere qu'un tableau en langage HTML. 

II faut tout d'abord placer sur le formulaire un controle TableLayoutPanel. Par defaut le controle est genere avec deux 
lignes et deux colonnes. Pour modifier cette disposition il suffit simplement d'activer les options du controle en 
cliquant sur la petite fleche situee sur le coin superieur droit puis en utilisant I'option correspondante. 



Sni Formi 



□ K 



Annuler 




Taches TableLayoutPanel 



Ajouter une colonne 

Ajouter une ligne 

5upprimer la derniere colonne 

Supprimer la derniere ligne 

Modifier les lignes et les colonnes. . . 



Chaque ligne et colonne peut egalement etre modifiee apres sa creation en choisissant I'option Modifier les lignes et 
les colonnes. 

Les controles peuvent ensuite etre places dans chacune des cases. II ne peut y avoir qu'un seul controle par case. 

Le principal interet de ce controle se situe pendant le dimensionnement du formulaire puisque les controles vont 
suivre automatiquement les modifications de ta i I le du formulaire. Pour cela, le controle TableLayoutPanel doit etre 
ancre sur les bordures gauche et droite du formulaire. 
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Proprietes 



TabieLayoutPanei 1 System, Windows. Forms. TableLay * 



+ - 



AccessibleName 

AccessibleRole 

AllowDrop 



Anchor 



AutoScroll 
EE AutoScrollMargin 
EE Auto5crollMin5ize 
Auto5ize 



Default 
False 

Top p Left, Right 



v 



Anchor 

Definit les bonds du conteneiir duuuei un Lui'iLruiu usl ne. 
Lorsqu'un controle est ancre a un bond, la distance entr. . . 




II en va de meme pour tous les controles places dans le TabieLayoutPanei. 

Apres une modification de la ta i I le de la fenetre, nous conservons toujours un aspect correct du formulaire, 



Forml 






Paul 




OX 


1 


| Artfmltr 



Fermi 



ass 




Pour comprendre I'interet du controle TabieLayoutPanei essayez la manipulation suivante. Ajoutez un nouveau 
formulaire puis faites un copier-coller des deux zones de texte et des deux boutons sur ce formulaire. Executez 
I'application et modifiez la ta i I le du formulaire. Le resultat prouve bien I'utilite de ce controle. 



6 Form2 



Form 2 





. Les controles graphiques 

a. Le controle PictureBox 

Le controle PictureBox est utilise pour afficher des images dans une application. Plusieurs formats de fichiers sont 
pris en charge par le controle : 



Les fichiers Bitmap (*.bmp) 
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• Les fichiers Icones (*.ico) 



• Les fichiers Gif (*.gif) 



• Les metafichiers (*.wmf) 



• Les fichiers JPEG (*.jpg) 



Le contenu du controle est specifie dans la propriete Picture. Dans la fenetre de proprieties, vous pouvez rechercher 
le fichier a charger dans le controle grace a la boite de dialogue ci-apres. 



Selectionner une ressource 



nContexte de la ressource 
Ressource locale : 



Importer,.. ;| 


Effacer 


Fichier de ressources du projet : 


| Resources, resx 




4 








? 



OK 



Annuler 



Le bouton Effacer permet de reinitialiser la propriete pour eliminer un fichier deja present. 

Pour modifier l'image affichee, par I'intermediaire du code, nous devons charger le contenu du fichier et I'affecter a la 
propriete Picture qui attend une instance de la classe image. Pour creer cette instance, nous utilisons la methode 
statique FromFile de la classe image qui prend comme parametre le nom du fichier et qui renvoie I'instance de la 
classe image creee. 



PictureBoxl . Image = Image . FromFile ( "titi . gif " ) 



Pour effacer une image par le code, vous pouvez utiliser le code suivant : 



PictureBoxl . Image = Nothing 



Par I'intermediaire de la propriete sizeMode, vous pouvez choisir comment le controle et I'image vont adapter leur 
taille respective : 

normal 



Les deux elements conservent leurs dimensions. L'image est placee dans le coin superieur gauche du controle. 



Stretchlmage 



L'image est agrandie pour occuper toute la surface du controle. Dans le cas d'images non vectorielles, le resultat est 
parfois decevant. 



AutoSize 



Le controle s'adapte a la taille de Timage. 
Centerlmage 

Les deux elements conservent leurs dimensions mais l'image est centree par rapport au controle. 
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Zoom 



L'image est agrandie ou retrecie pour occuper toute la largeur ou hauteur du controle mais le meme ratio est utilise 
verticalement et horizontalement. 






Normal Stretchlmage AutoSize Centerlmage Zoom 



b. Le controle ImageList 

Le controle ImageList est utilise dans une application pour servir de "reservoir d'images". II ne fournit aucune 
fonctionnalite pour I'affichage des images, mais permet simplement leur stockage dans 1'application. De nombreux 
types de fichiers peuvent etre utilises dans ce controle (bmp, ico, g if, jpg . . .)■ Toutefois, les images stockees dans ce 
controle ne sont pas forcement du meme type. Vous pouvez, par exemple, melanger des fichiers bmp et des fichiers 
ico. Une petite restriction tout de meme : les images issues de metafile (wmf) ne sont pas prises en compte. Ce 
controle n'a pas d'interface visible au moment de I'execution done il ne sera pas place directement sur la feuille, mais 
dans une zone reservee a ce type de controles dans I'interface de conception graphique. 

Ce controle sera utilise en association avec tout type de controle possedant une propriete ImageList, 

SmalllmageList, OU LargelmageList . Pour ces COntroleS, une autre propriete, en general la propriete Imagelndex, 

indique l'image stockee dans le controle ImageList que vous voulez lui associer. De cette maniere, vous pouvez 
rapidement modifier l'image affichee sur un bouton en modifiant la propriete imagelndex du bouton, afin de 
selectionner I'une des images disponibles dans le controle ImageList. 

La propriete images est la propriete principale du controle ImageList. C'est une collection dans laquelle les images 
sont stockees. Chaque image est accessible par I'intermediaire de son index dans la collection. 

Cette propriete peut etre modifiee au moment de la conception de 1'application, par I'intermediaire de la fenetre de 
I'editeur de collections d'images affichee lorsque Ton modifie la propriete images du controle. 



Editeur de collections Images 





Proprietes Icon 1 , ico : 



♦- 



□ Divers 

HorizontalResolut 96 

Name Icon 1. ico 




EE PhysicalDimensior 16; 16 
PixelFormat 



RawFormat 



S 5ize 



Format32bppArgb 



MemoryBmp 



16; 16 



VerticalResolutior 96 



OK 



Annuler 



Par I'intermediaire de cet editeur, on peut notamment ajouter des images, en supprimer ou modifier leur classement 
dans la collection. Cependant, il n'y a pas possibility de modifier l'image une fois inseree dans la collection. II faut, 
dans ce cas, la supprimer et en inserer une nouvelle avec le contenu du fichier correspondant. 

L'insertion d'une image peut egalement s'effectuer par I'intermediaire du code, en utilisant la methode Add disponible 
dans la collection Images du controle. 
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ImageListl . Images .Add (Image .FromFile ("dome . bmp") ) 



De la meme fagon, on peut supprimer, par le code, une image deja presente dans la liste en utilisant la methode 
RemoveAt et en indiquant I'index de I'element a supprimer. 



ImageListl . Images . RemoveAt ( 6) 

La methode clear permet de vider completement la collection images supprimant ainsi toutes les images du controle 

ImageList . 

Pour toutes les images de la liste, vous pouvez egalement indiquer par Tintermediaire de la propriete coiorDepth le 
nombre de couleurs gerees par le controle ImageList. La propriete imagesize indique la ta i I le des images. Cette ta i I le 
sera identique pour toutes les images placees dans le controle. Les images inserees seront eventuellement 
agrandies ou diminuees pour s'adapter a cette ta i I le (les resultats sont parfois decevants). 



8. Les contrdles de gestion du temps 

Deux controles sont disponibles pour la saisie de dates. Le controle DateTimePicker permet la saisie d'une date alors 
que le controle Monthcaiendar autorise la saisie d'une plage de dates. 



a. Le controle DateTimePicker 

Ce controle associe une zone de texte et un calendrier. La date sera soit saisie directement dans la zone de texte 
(avec quand meme une verification des informations saisies), soit beaucoup plus facilement en affichant le calendrier 
en utilisant le bouton situe a cote de la zone de texte (comme pour une ComboBox). 



lundi 2G decembre 2005 ^ 
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Aujourd'hui : 


26/1 2/2005 





La propriete value permet de recuperer la date saisie ou au contraire de specifier la date selectionnee sur le 
calendrier a son affichage. Par defaut, le calendrier est initialise avec la date du jour. 

b. Le controle MonthCalendar 

Ce controle correspond, en fait, au calendrier associe au controle DateTimePicker avec bien sur des fonctionnalites 
supplementaires. Vous pouvez, par exemple, indiquer une liste de dates qui apparaitront en gras sur le calendrier 
(par exemple les jours feries). La proprieteAnnuaiiyBoidedDates contient la liste de tous ces jours "speciaux". 
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Membres : 




Proprieties 08/05/2006 : 



+ ■ 












□ DateTime 


| Value 


| 08/05/2006 



OK 



Annuler 



La propriete MonthiyBoidedDates permet d'indiquer les jours qui apparaitront en gras chaque mois (le jour ou vous 
avez une facture a payer par exemple !). 

L'interet principal de ce controle est qu'il permet la selection d'une plage de dates. La propriete MaxSeiectionCount 
indique le nombre de jours maximal de la selection (par defaut, 7). II reste un probleme cependant, car il n'y a pas de 
solution simple pour choisir une plage de date "a cheval" sur plusieurs mois. Les calendriers des mois compris dans la 
selection doivent etre tous visibles, pour permettre la selection d'une plage sur plusieurs mois. La solution consiste 
done a configurer le controle pour qu'il affiche plusieurs mois simultanement. La propriete caiendarDimensions fixe le 
format du calendrier. 

Par exemple, une application utilisee pour gerer un planning de vacances pourrait utiliser la configuration suivante : 



A indique les jours feries pour affichage en gras 

Me . Planning . AnnuallyBoldedDates = New Date() {New Date (2006, 7, 14, 0, 
0, 0, 0), New Date (2006, 8, 15, 0, 0, 0, 0)} 

^affichage de trois mois en largeur sur un mois en hauteur 
Me . Planning . CaiendarDimensions = New System . Drawing . Size ( 3 , 1) 
Me . Planning . Location = New System . Drawing . Point ( 4 0 , 128) 

^limite les possiblites de deplacement du 1 Juin au 31 Aout 2002 
Me. Planning. MinDate = New Date (2006, 6, 1, 0, 0, 0, 0) 
Me. Planning. MaxDate = New Date (2006, 8, 31, 0, 0, 0, 0) 

^Autorise la selection d' au maximum 28 jours (4 semaines de conges) 
Me . Planning . MaxSeiectionCount = 28 
Me . Planning . Name = "Planning" 
Me . Planning . Tablndex = 6 

Me .Planning. TodayDate = New Date (2006, 6, 4, 0, 0, 0, 0) 
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Vous pouvez, ensuite, obtenir I'intervalle selectionne en utilisant la propriete seiectionRange qui contient elle-meme 
une propriete start et une propriete End. L'evenement DateSeiected se declenche lorsque Tune des bornes de la 
selection est modifiee. On peut done I'utiliser pour mettre a jour une zone de texte, comme dans I'exemple ci- 
dessous. 



Private Sub Planning_DateSelected (ByVal sender As Object, ByVal e As 
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System . Windows . Forms . DateRangeEventArgs ) Handles Planning .DateSelected 
TxtVacances . Text = "vous etes en vacances du " & Planning . Selection 
Range. Start & " au " & Planing . SelectionRange . End 
End Sub 



c. Le controle Timer 

Ce controle va nous permettre de declencher des evenements a intervalles reguliers dans I'application. Ce controle 
est tres simple d'utilisation puisqu'il ne possede que deux proprietes. 

Interval 

Indique le delai entre deux evenements. Ce delai est exprime en millisecondes. 

Enabled 

Indique si le controle genere des evenements ou est inactif. 
A chaque expiration du delai, un evenement Tick est declenche. 

II faut cependant etre prudent lors de I'utilisation de ce controle en tenant compte des remarques suivantes : 

• Si le systeme est tres charge (parce qu'il effectue des operations d'entree/sortie reseau par exemple), il se 
peut que les evenements Tick ne soient pas declenches regulie- rement. 

• La precision du controle Timer n'est pas digne d'une montre Suisse. II ne faut pas, par exemple, incrementer 
une variable sur I'evenement Tick d'un controle Timer pour mesurer une duree, mais plutot se servir de 
ITiorloge systeme comme dans I'exemple ci-dessous : 



Dim depart As Date 

Private Sub Forml 6_Load (ByVal sender As Object, ByVal e As System . EventArgs ) 
Handles MyBase.Load 
depart = Now 

End Sub 

Private Sub Timerl_Tick (ByVal sender As System. Ob ject, ByVal e As System. 
EventArgs) Handles Timerl.Tick 

Dim duree As Double 
A calcul de la duree heure courante-heure depart et conversion 'en jour 

duree = DateDiff (Datelnterval . Second, depart, Now) / (24 * 3600) 
* conversion de la valeur en date et formatage en minutes : secondes 

lblDuree . Text = Format (Date . FromOADate (duree) , "'vous travaillez depuis' 
mm 'minutes' ss 'secondes'") 
End Sub 



d. Le composant BackGroundWorker 

II arrive parfois d'avoir a effectuer, dans une application, des operations relativement longues comme par exemple 
des chargements d'images ou des recherches sur un disque dur. Ces operations entrainent un blocage de 
I'application pendant leur execution. L'utilisateur a I'impression que I'application ne repond plus et il est parfois tente 
de mettre fin a I'application brutalement. Une solution envisageable est de fournir a l'utilisateur une information sur 
I'avancement du traitement avec par exemple I'affichage d'une barre de progression. Meme avec cette solution 
l'utilisateur sera oblige d'attendre la fin du traitement pour pouvoir continuer a utiliser I'application. Le composant 
BackGroundWorker permet de resoudre ce probleme en executant ces operations de fagon asynchrone en arriere-plan. 
Le code est execute sur un thread different du thread principal de I'application qui lui continuera a gerer I'interface de 
I'application. Vous devez juste indiquer au BackGroundWorker le code qu'il doit executer puis appeler sa methode 
RunWorkerAsync. A la fin de I'execution, celui-ci vous previendra en declenchant I'evenement RunWorkerCompieted. 
Nous allons tester ceci en realisant une application calculant combien il y a de nombres premiers entre 0 et une valeur 
fixee. Tout d'abord voici le code d'une fonction verifiant si un nombre est premier. 



Public Function estPremier (ByVal nb As Integer) As Boolean 
If nb < 2 Then 
Return False 
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End If 

If nb = 2 Then 

Return True 
End If 

If nb Mod 2 = 0 Then 

Return False 
End If 

Dim i As Integer 
i = 3 

Do While (i * i <= nb) 

If nb Mod i = 0 Then 
Return False 

Else 

i = i + 1 
End If 

Loop 

Return True 
End Function 



Ce code est loin d'etre le plus efficace en temps de calcul pour realiser cette operation mais c'est un petit peu le but 
recherche. La deuxieme fonction va calculer combien il y a de nombres premiers entre 0 et la valeur passee comme 
parametre. 



Public Function comptePremier (ByVal maxi As Integer) 
Dim i, nb As Integer 
For i = 0 To maxi 

If estPremier ( i ) Then 

nb = nb + 1 
End If 

Next 

Return nb 
End Function 



Nous devons ensuite placer sur le formulaire un controle BackGroundworker, deux TextBox et deux Button. La premiere 
zone de texte servira pour la saisie de la valeur maximum de calcul, la deuxieme pour I'affichage du resultat. Le 
premier bouton lancera le calcul par I'intermediaire du BackGroundworker, le deuxieme lancera le calcul directement. 
Pour verifier la reactivite de I'application, nous ajoutons egalement un controle TextBox multiligne par exemple. 

Ecrivons maintenant les gestionnaires d'evenements pour les deux boutons. Le premier est simple puisque nous 
appelons simplement la fonction comptePremier en lui passant la valeur saisie dans la zone de texte txtNbCaicuis et 
nous affichons le resultat dans la zone de texte txtResuitat. La modification des proprietes Enabled des boutons 
evite de lancer une deuxieme fois le calcul avant que le precedent soit termine. 



Private Sub cmdNormal_Click (ByVal sender As System . Ob ject , ByVal e 
As System . EventArgs ) Handles cmdNormal . Click 

cmdNormal . Enabled = False 
cmdBackGround . Enabled = False 

txtResuitat . Text = comptePremier (txtNbCaicuis . Text ) 
cmdNormal . Enabled = True 
cmdBackGround . Enabled = True 

End Sub 



Le code du bouton BackGround est aussi simple. La seule grosse difference se situe au niveau de I'appel de la fonction 
comptePremier qui est en fait appelee indirectement par la methode RunWorkerAsync. Le parametre passe a cette 
methode sera ensuite envoye a la fonction comptePremier. 



Private Sub cmdBackGround_click (ByVal sender As System . Ob ject , ByVal e 
As System . EventArgs ) Handles cmdBackGround . Click 

cmdBackGround . Enabled = False 
cmdNormal . Enabled = False 
txtResuitat . Text = "" 

bgw . RunWorkerAsync (txtNbCaicuis . Text ) 

End Sub 



II nous reste encore deux choses a preciser pour que I'application soit operationnelle. Nous devons indiquer au 
BackGroundworker quel code il doit executer en tache de fond. Pour cela il faut gerer son evenement Dowork qui lui, est 
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execute sur le thread associe au BackGroundworker. L'information a fournir a la fonction comptePremier est obtenue 
par I'intermediaire de la propriete Argument du parametre. 



Private Sub bgw_DoWork (ByVal sender As Object, ByVal e 

As System . ComponentModel . DoWorkEventArgs ) Handles bgw.DoWork 



e. Result = comptePremier (e . Argument ) 



End Sub 



Le resultat doit etre transmis dans la propriete Result. Le BackGroundworker nous previent qu'il a termine le travail en 
declenchant I'evenement RunWorkerCompieted. En reponse a cet evenement, nous recuperons le resultat par 
I'intermediaire de la propriete Result et nous I'affichons dans la zone de texte de resultat. 



Private Sub bgw_RunWorkerCompleted (ByVal sender As Object, ByVal e As 

System . ComponentModel . RunWorkerCompletedEventArgs ) Handles bgw . RunWorkerCompieted 



txtResultat . Text = e. Result 
cmdBackGround . Enabled = True 
cmdNormal . Enabled = True 



End Sub 



II y a juste un piege a eviter dans I'utilisation du BackGroundworker. Le code de I'evenement Dowork ne doit 
absolument pas acceder aux autres controles du formulaire car ils ne sont pas geres par le meme Thread. Si vous 
tentez de le faire, vous obtiendrez I'exception suivante. 



i KiFsju ltox . Text - ■zcapttFreT; icr (e . Xcgume rcc ; 



■\ L'c wr-plann TfiwtlldQpef ntlpnf Mcrpldon n'a p« ft* qfaf.c- p.w k Litlllsfttnu- 



^fpff -SxF-i rtfer treads ncn v-sfct : b corilrS-: t..*HjwJtsf a faA lebytt Jlti aras A part* tfiit thread 
Mi* QW *- r hQwM * Of W. 

CoiweiU d& ddpann-aye : 



Actions: 

Afftcher fesdetrft... 
MiVd ks mcdfictflori 

Copier 4 dctti * rtunpftn tfins k- pyhw^w**? 



Pour tester le fonctionnement, vous devez simplement fournir une valeur (environ 10000000) puis lancer le calcul par 
run des deux boutons. Pendant que le calcul s'execute vous pouvez essayer d'utiliser le troisieme controle TextBox. 
Dans le cas du traitement par le BackGroundworker, ce controle est utilisable en cours de calcul. L'appel direct de la 
fonction comptePremier bloque I'interface de l'application pendant son execution. 
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L'heritage de formulaires 



Vous pouvez parfois avoir besoin qu'un projet appelle un formulaire similaire a un autre que vous avez deja cree dans 
un autre projet. Vous pouvez egalement creer un formulaire de base contenant des parametres tel qu'un arriere-plan 
statique ou une presentation particuliere des controles que vous comptez reutiliser plusieurs fois dans un projet, chaque 
nouvelle version contenant des modifications par rapport au modele d'origine. L'heritage de formulaire vous permet de 
creer un formulaire de base puis d'en heriter pour personnaliser les nouvelles versions ainsi creees. 

Pour pouvoir creer un formulaire herite, il faut bien sur au prealable concevoir le formulaire de base. Pour que l'heritage 
de formulaire soit accessible, le projet contenant le formulaire de base doit obligatoirement avoir ete compile. L'ajout 
d'un formulaire herite est realisable par I'uti lisation de la boite de dialogue classique d'ajout d'element a un projet en 
choisissant I'option Formulaire herite. 




Categories : 



- Elements tommuns 
Code 
DoFinees 
General 

web 

Windows Forms 
Reporting 

Workflow 
WPF 



Modeled : 



Mnrfeles Visual Studio instaLles 



J]Bolte de dialogue 
^jControlB pBrsonrralise- 

■ .Ecr-an de dDmarrage 
jFomnUcir^ Explorcteur 

^Mindbv.K Form 
^Controls utilsateur herite 



] Boite de dialogue A prouos de 
j| Controls utilreabeur 
^Formulare dc conrsexion 
lFoimilare parent MDI 



; Forarulare herite 



.j^EteehjftrChs del modules en ligrie. 



Wduvkspj FornuJairc base- sur un Windows Form c^istanl 



Worn : 



Form£,vb 



| ftjouter j [ flnrmtej 



Nommez ensuite votre nouveau formulaire et cliquez sur le bouton Ajouter. La boite de dialogue Selecteur d'heritage 

s'ouvre et si le projet actuel contient deja des formulaires, ils sont affiches dans cette boite de dialogue. Pour heriter 
d'un formulaire disponible dans un autre assembly, cliquez sur le bouton Parcourir et selectionnez le fichier (.exe ou .dll) 
contenant le formulaire de base puis validez votre choix avec le bouton OK. Le nouveau formulaire est alors ajoute a 

votre projet. Sur ce formulaire, les controles provenant de l'heritage sont marques grace au symbole 

La propriete Modifiers de chacun des controles du formulaire de base determine les actions possibles sur ces controles 
dans un formulaire herite. Les regies standard de l'heritage sont appliquees. Le tableau suivant resume ces regies de 
visibilite. 




• Public : les controles peuvent etre redimensionnes et deplaces. Le controle est accessible en interne par la 
classe qui le declare et en externe par les autres classes. 

• Protected : les controles peuvent etre redimensionnes et deplaces. Le controle est accessible en interne par la 

classe qui le declare et par toute classe heritant de la classe parente, mais il n'est pas accessible aux classes 
externes. 

• Protected Friend : les controles peuvent etre redimensionnes et deplaces. Peuvent etre accessibles en interne 

par la classe qui les declare, par toute classe qui herite de la classe parente, et par d'autres membres de 
I'assembly qui les contient. 

• Friend : tous les aspects du controle sont consideres comme accessibles seulement en lecture. Vous ne pouvez 

pas le deplacer ou le redimensionner, ni modifier ses proprietes. Le controle est accessible uniquement par 
d'autres membres de I'assembly qui le contient. 

• Private : tous les aspects du controle sont consideres comme accessibles seulement en lecture. Vous ne pouvez 

pas le deplacer ou le redimensionner, ni modifier ses proprietes. Le controle n'est accessible que depuis la classe 
qui le declare. 
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D'autres controles peuvent bien sur etre ajoutes sur le formulaire herite pour personnaliser son aspect. Si le formulaire 
de base est modifie apres son utilisation dans une relation d'heritage, les modifications sont propagees aux formulaires 
herites lors de la compilation du formulaire de base. 
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Principe de fonctionnement d'une base de donnees 

Les bases de donnees sont devenues des elements incontournables de la majorite des applications. Elles se substituent 
a l'utilisation de fichiers geres par le developpeur lui-meme. Cet apport permet un gain de productivity important lors du 
developpement et une amelioration significative des performances des applications. Elles facilitent egalement le partage 
d'informations entre utilisateurs. Pour pouvoir utiliser une base de donnees, vous devez connaitre un minimum de 
vocabulaire lie a cette technologie. 



1. Terminologie 

Dans le contexte des bases de donnees, les termes suivants sont frequemment utilises : 
Base de donnees relationnelle 

Une base de donnee relationnelle est un type de base de donnees qui utilise des tables pour le stockage des 
informations. Elles utilisent des valeurs issues de deux tables, pour associer les donnees d'une table aux donnees 
d'une autre table. En regie generale, dans une base de donnees relationnelle, les informations ne sont stockees 
qu'une seule fois. 

Table 

Une table est un composant d'une base de donnees qui stocke les informations dans des enregistrements (lignes) et 
dans des champs (colonnes). Les informations sont, en general, regroupees par categorie au niveau d'une table. Par 
exemple, nous aurons la table des Clients, des Produits ou des commandes. 

Enregistrement 

L'enregistrement est I'ensemble des informations relatives a un element d'une table. Les enregistrements sont les 
equivalents, au niveau logique, des lignes d'une table. Par exemple, un enregistrement de la table Clients contient les 
caracteristiques d'un client particulier. 

Champ 

Un enregistrement est compose de plusieurs champs. Chaque champ d'un enregistrement contient une seule 
information sur l'enregistrement. Par exemple, un enregistrement Client peut contenir les champs CodeClient, Norn, 
Prenom... 

Cle primaire 

Une cle primaire est utilisee pour identifier, de maniere unique, chaque ligne d'une table. La cle primaire est un champ 
ou une combinaison de champs dont la valeur est unique dans la table. Par exemple, le champ CodeClient est la cle 
primaire de la table Client. II ne peut pas y avoir deux clients ayant le meme code. 

Cle etrangere 

Une cle etrangere represente un ou plusieurs champs d'une table, qui font reference aux champs de la cle primaire 
d'une autre table. Les des etrangeres indiquent la maniere dont les tables sont liees. 

Relation 

Une relation est une association etablie entre des champs communs dans deux tables. Une relation peut etre de un a 
un, de un a plusieurs ou de plusieurs a plusieurs. Grace aux relations, les resultats de requetes peuvent contenir des 
donnees issues de plusieurs tables. Une relation de un a plusieurs entre la table Client et la table Commande permet 
a une requete de renvoyer toutes les commandes correspondant a un client. 



2. Le langage SQL 

Avant de pouvoir ecrire une application Visual Basic utilisant des donnees, vous devez etre familiarise avec le langage 
SQL (Structured Query Language). Ce langage permet de dialoguer avec la base de donnees. II existe differentes 
versions du langage SQL, en fonction de la base de donnees utilisee. Cependant, SQL dispose egalement d'une 
syntaxe elementaire, normalisee, independante de toutes bases de donnees. 
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a. Recherche d'informations 



Le langage SQL permet de specifier les enregistrements a extraire ainsi que I'ordre dans lequel vous souhaitez les 
extraire. Vous pouvez creer une instruction SQL qui extrait des informations de plusieurs tables simultanement, ou 
creer une instruction qui extrait uniquement un enregistrement specifique. 

L'instructionsELECT est utilisee pour renvoyer des champs specifiques d'une ou de plusieurs tables de la base de 
donnees. 

L'instruction suivante renvoie la liste des noms et prenoms de tous les enregistrements de la table Client : 



SELECT Nom,Prenom FROM Client 



Vous pouvez utiliser le symbole * a la place de la liste des champs pour lesquels vous souhaitez la valeur : 

SELECT * FROM Client 

Vous pouvez limiter le nombre d'enregistrements selectionnes, en utilisant un ou plusieurs champs pour filtrer le 
resultat de la requete. Differentes clauses sont disponibles pour executer ce filtrage. 

Clause WHERE 

Cette clause permet de specifier la liste des conditions, que devront remplir les enregistrements pour faire partie des 
resultats retournes. L'exemple suivant permet de retrouver tous les clients habitant Nantes : 



SELECT * FROM Client WHERE Ville=' Nantes ' 



Q La syntaxe de cette clause necessite 1'utilisation de simple cote pour la delimitation des chaines de caracteres. 



Clause WHERE ... IN 

Vous pouvez utiliser la clause where ... in pour renvoyer tous les enregistrements qui repondent a une liste de 
criteres. Par exemple, vous pouvez rechercher tous les clients habitant en France ou en Espagne : 



SELECT * FROM Client WHERE Pays IN ( 'France' , ' Espagne' ) 



Clause WHERE ... BETWEEN 

Vous pouvez egalement renvoyer une selection d'enregistrements qui se situent entre deux criteres specifies. La 
requete suivante permet de recuperer la liste des commandes passees au mois de novembre 2005 : 



SELECT * from Commandes WHERE DateCommande BETWEEN '01/11/05' AND '30/11/05' 



Clause WHERE ... LIKE 

Vous pouvez utiliser la clause where . . . like pour renvoyer tous les enregistrements pour lesquels il existe une 
condition particuliere pour un champ donne. Par exemple, la syntaxe suivante selectionne tous les clients dont le nom 
commence par un d : 



SELECT * FROM Client WHERE Nom LIKE M%' 



^ Dans cette instruction, le symbole % est utilise pour remplacer une sequence de caracteres quelconque. 



Clause ORDER BY ... 

Vous pouvez utiliser la clause order by pour renvoyer les enregistrements dans un ordre particulier. L'option asc 
indique un ordre croissant, l'option desc indique un ordre decroissant. Plusieurs champs peuvent etre specifies comme 
critere de tri. lis sont analyses de la gauche vers la droite. En cas d'egalite sur la valeur d'un champ, le champ suivant 
est utilise : 



SELECT * FROM Client ORDER BY Nom DESC,Prenom ASC 
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CS Cette instruction retourne les clients tries par ordre decroissant sur le nom et, en cas d'egalite, par ordre 
" croissant sur le prenom. 



b. Ajout d'informations 

La creation d'enregistrements dans une table s'effectue par la commande insert into. Vous devez indiquer la table 
dans laquelle vous souhaitez inserer une ligne, la liste des champs pour lesquels vous specifiez une valeur et, enfin, 
la liste des valeurs correspondantes. La syntaxe complete est done la suivante : 



INSERT INTO client ( codeClient , nom, prenom) VALUES (1000, ' Dupond' , ' Pierre' ) 



Lors de I'ajout de ce nouveau client, seuls le nom et le prenom seront renseignes dans la table. Les autres champs 
prendront la valeur NULL. Si la liste des champs n'est pas indiquee, 1'instruction insert exige que vous specifiez une 
valeur pour chaque champ de la table. Vous etes done obliges d'utiliser le mot cle NULL pour indiquer que, pour un 
champ particulier, il n'y a pas d'information. Si la table Client est composee de cinq champs 
(codeClient, nom, prenom, adresse, pays), 1'instruction precedente peut etre ecrite avec la syntaxe suivante : 



INSERT INTO client VALUES (1000, ' Dupond' , ' Pierre' , NULL, NULL) 



^ Dans ce cas, les deux mots cles NULL sont obligatoires pour les champs adresse et pays. 



c. Mise a jour d'informations 

La modification des champs pour des enregistrements existants, s'effectue par I'instructionuPDATE. Cette instruction 
peut mettre a jour plusieurs champs de plusieurs enregistrements d'une table, a partir des expressions qui lui sont 
fournies. Pour cela, vous devez fournir le nom de la table a mettre a jour ainsi que la valeur a affecter aux differents 
champs. La liste est indiquee par le mot cle SET suivi de I'affectation de la nouvelle valeur aux differents champs. Si 
vous voulez que les modifications ne portent que sur un ensemble limite d'enregistrements, vous devez specifier la 
clause where, afin de limiter la portee de la mise a jour. Si aucune clause where n'est indiquee, la modification se fera 
sur I'ensemble des enregistrements de la table. 

Par exemple, pour modifier I'adresse d'un client particulier, vous pouvez utiliser I'instruction suivante : 



UPDATE Client SET adresse= M rue de Paris 44000 Nantes' WHERE codeClient=1000 



Si la modification porte sur I'ensemble des enregistrements de la table, la clause where est inutile. Par exemple, si 
vous souhaitez augmenter le prix unitaire de tous vos articles, vous pouvez utiliser I'instruction suivante : 



UPDATE CATALOGUE SET prixUnitaire=prixUnitaire* 1 . 1 



d. Suppression d'informations 

L'instructionDELETE from permet de supprimer un ou plusieurs enregistrements d'une table. Vous devez, au minimum, 
fournir le nom de la table sur laquelle va s'effectuer la suppression. Si vous n'indiquez pas plus de precisions, toutes 
les lignes de la table sont supprimees. En general, une clause where est ajoutee pour limiter I'etendue de la 
suppression. La commande suivante efface tous les enregistrements de la table Client : 



DELETE FROM Client 



La commande suivante est moins radicale et ne supprime qu'un enregistrement particulier : 



DELETE FROM Client WHERE codeClient=l 0 0 0 



Le langage SQL est, bien sur, beaucoup plus complet que cela et ne se resume pas a ces cinq instructions. 
Neanmoins, elles sont suffisantes pour la manipulation de donnees a partir de Visual Basic. Si vous souhaitez 
approfondir I'apprentissage du langage SQL, consultez un des ouvrages disponibles dans la meme collection traitant 
de ce sujet de maniere plus poussee. 
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Presentation d'ADO.NET 

ADO.NET est un ensemble de classes, d'interfaces, de structures et d'enumerations permettant la manipulation des donnees. Les differents 
composants d'ADO.NET permettent de separer l'acces aux donnees de la manipulation des donnees. ADO.NET facilite egalement I'utilisation du 
langage XML, en permettant la conversion de donnees relationnelles au format XML ou I'importation de donnees aux formats XML dans un modele 
relationnel. Deux modes de fonctionnement sont disponibles dans ADO.NET : 

• le mode connecte ; 

• le mode non connecte. 



1. Mode connecte 

Dans un environnement connecte, I'application ou I'utilisateur est en permanence connecte a la source de donnees. Depuis les debuts de 
I'informatique, c'etait le seul mode disponible. Ce mode presente certains avantages dans son fonctionnement : 

• II est facile a gerer : la connexion est realisee au debut de I'application puis est coupee a sa fermeture. 

• L'acces concurrentiel est plus facile a controler : comme tous les utilisateurs sont connectes en permanence, il est plus facile de 
controler lequel travaille sur les donnees. 

• Les donnees sont a jour : toujours grace a la connexion permanente aux donnees, il est facilement envisageable de prevenir toutes les 
applications utilisant les donnees que des modifications viennent d'y etre apportees. 

Par contre, certains inconvenients viennent un peu noircir le tableau : 

• La connexion reseau doit etre constamment maintenue : en cas d'utilisation de I'appli- cation sur un ordinateur portable, l'acces au 
reseau risque de ne pas etre disponible en permanence. 

• II y a un risque de gaspillage de ressources sur le serveur : au moment de I'etablis- sement d'une connexion entre une application 
cliente et un serveur, des ressources sont allouees sur le serveur pour la gestion de cette connexion. Ces ressources restent 
monopolisees par la connexion, meme si aucune information ne transite par cette connexion. 

Cependant, dans certaines situations, I'utilisation d'un mode connecte est incontournable. C'est le cas, par exemple, des applications effectuant 
des traitements en temps reel. 



2. Mode non connecte 

Un mode non connecte signifie qu'une application ou un utilisateur n'est pas constamment connecte a une source de donnees. Les applications 
Internet utilisent souvent ce mode de fonctionnement. La connexion aux donnees est ouverte, les donnees sont extraites puis la connexion est 
coupee. L'utilisateur travaille avec les donnees, a partir de son navigateur, et la connexion est a nouveau ouverte pour la mise a jour de la 
source de donnees ou I'obtention d'autres donnees. Les utilisateurs, travaillant sur des ordinateurs portables, sont egalement les principaux 
utilisateurs d'environnements deconnectes. Un medecin peut, par exemple le matin, charger les dossiers medicaux des patients qu'il va visiter 
dans la journee, puis le soir, fusionner les modifications dans la base de donnees. Les avantages d'un environnement deconnecte sont les 
suivants : 

• Les connexions sont utilisees pendant la plus courte duree possible. De cette facon, un petit nombre de connexions disponibles sur un 
serveur suffisent pour de nombreux utilisateurs. 

• Un environnement deconnecte ameliore I'evolutivite et les performances d'une appli- cation, en optimisant la disponibilite des 
connexions. 

L'environnement deconnecte comporte cependant quelques inconvenients : 

• Les donnees disponibles dans I'application ne sont pas toujours a jour. Par exemple, dans le cas de notre medecin, si sa secretaire 
ajoute des resultats d'analyse apres qu'il ait recupere les dossiers medicaux de ces patients, il ne pourra pas disposer imme- diatement 
des informations. 

• Des conflits peuvent parfois survenir lors de la mise a jour des informations dans la base. Ce type de problemes doit etre pris en charge 
lors de la conception de I'application. Differentes approches sont disponibles pour la gestion de ces conflits : 

• Autoriser la predominance des mises a jour, les plus recentes, en ecrasant les donnees deja presentes dans la base. 

• Autoriser la predominance des mises a jour, les plus anciennes, en abandonnant les nouvelles mises a jour. 

• Prevoir du code permettant a l'utilisateur de choisir ce qu'il souhaite faire en cas de conflit lors d'une mise a jour. 



3. Architecture d'ADO.NET 
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Le but d'ADO.NET est de fournir un ensemble de classes permettant I'acces aux bases de donnees. Deux types de composants sont 
disponibles : 

• Les fournisseurs de donnees, specifiques a un type de base de donnees. lis assurent la communication avec un type specifique de base 
de donnees et permettent la manipulation des donnees directement dans la base en mode connecte. Les possibilites sont cependant 
limitees puisque uniquement un acces en lecture seule est disponible. 

• Les classes de manipulation des donnees, independantes du type de base de donnees, voire utilisables sans base de donnees, 
permettent la manipulation locale des donnees dans I'application. 



4. Les fournisseurs de donnees 

Les fournisseurs de donnees servent de passerelle entre une application et une base de donnees. lis sont utilises pour recuperer les 
informations, a partir de la base de donnees, et transferer les changements effectues sur les donnees par I'application vers la base de 
donnees. Quatre fournisseurs de donnees sont disponibles dans le Framework.NET : 

• le fournisseur pour SQL Server ; 

• le fournisseur pour OLE DB ; 

• le fournisseur pour ODBC ; 

• le fournisseur pour Oracle. 

lis proposent tous I'implementation de quatre classes, de base, necessaires pour le dialogue avec la base de donnees : 

• La classe Connection permet d'etablir une connexion avec le serveur de base de donnees. 

• La classe Command permet de demander I'execution d'une instruction ou d'un ensemble d'instructions SQL a un serveur. 

• La classe DataReader procure un acces en lecture seule et un defilement, en avant seulement, aux donnees, (meme principe qu'un 
fichier sequenciel). 

• La classe DataAdapter est utilisee pour assurer le transfert des donnees vers un systeme de cache local a I'application (le DataSet) et 
mettre a jour la base de donnees, en fonction des modifications effectuees localement dans le DataSet. 

Quelques autres classes sont disponibles pour, par exemple, la gestion des transactions, ou le passage de parametres a une instruction SQL. 



a. SQL Server 

Le fournisseur de donnees pour SQL Server utilise un protocole natif pour dialoguer avec le serveur de base de donnees. II est egalement peu 
consommateur de ressources puisqu'il accede au serveur, sans utiliser de couche log icielle supplemental telle que OLE DB ou ODBC. II est 
utilisable avec SQL Server a partir de la version 7. Toutes les classes de ce fournisseur de donnees sont disponibles dans I'espace de nom 
System. Data. SqICIient. Dans cet espace de nom, le nom de chaque classe est prefixe par sqi. Ainsi, la classe permettant de se connecter a 
un serveur SQL Server s'appelle Sqiconnection. 



b. OLE DB 

Le fournisseur OLE DB utilise la couche log iciel le OLE DB pour communiquer avec le serveur de base de donnees. Vous pouvez utiliser ce 
fournisseur pour dialoguer avec une base de donnees pour laquelle il n'existe pas de fournisseur specifique, mais pour laquelle le pilote OLE 
DB est disponible. Avec cette solution, le fournisseur ne contacte pas le serveur directement mais passe par le pilote OLE DB pour 
communiquer. Pour que cette communication soit possible, le pilote doit implementer certaines interfaces. Toutes les classes sont disponibles 
dans I'espace de nom System. Data. OleDb. Les noms de classe de cet espace de nom sont prefixes par oieDb. Pour pouvoir fonctionner 
correctement, ce fournisseur exige Installation de MDAC 2.6 sur la machine (Microsoft Data Access Components). 



c. ODBC 

Le fournisseur ODBC utilise un pilote ODBC natif pour communiquer avec le serveur de base de donnees. Ce fournisseur utilise un pilote ODBC 
natif pour la communication. Le principe est identique a celui utilise pour le fournisseur OLE DB. Toutes les classes sont disponibles dans 
I'espace de nom System. Data. Odbc. Les noms de classes sont prefixes par odbc. Pour pouvoir fonctionner correctement, ce fournisseur exige 
I'installation sur la machine de MDAC 2.6 (Microsoft Data Access Components). 



d. ORACLE 

Le fournisseur pour Oracle permet la connexion a une source de donnees Oracle, a travers les outils client Oracle. Ces outils client doivent etre 
installes sur le systeme pour pouvoir se connecter a une base Oracle. La version 8.1.7 ou superieure est exigee. Les classes sont localisees 
dans I'espace de nom System. Data. OracleClient et utilisent Oracle comme prefixe de nom. Pour utiliser le fournisseur pour Oracle, vous 
devrez egalement ajouter une reference vers la bibliotheque System.Data.OracleClient.dll. 
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5. Rechercher les fournisseurs disponibles 



Pour assurer le bon fonctionnement d'une application utilisant un acces aux donnees, les fournisseurs de donnees doivent etre disponibles sur 
le poste client. La classe DbProviderFactories propose la methode partagee GetFactoryCiasses, permettant d'enumerer les fournisseurs de 
donnees disponibles sur le poste. L'exemple de code suivant affiche le nom, la description et I'espace de nom racine de chacun des fournisseurs 
installes sur le poste de travail. 



Imports System. Data 
Imports System . Data . Common 
Module ListeProviders 
Sub Main ( ) 

Dim resultat As DataTable 

'recuperation de la liste des fournisseurs dans une dataTable 
resultat = DbProviderFactories . GetFactoryCiasses ( ) 
Dim colonne As DataColumn 
Dim ligne As DataRow 

^parcours des colonnes de la dataTable et affichage du nom 
For Each colonne In result at . Columns 

Console . Write ( colonne . ColumnName & vbTab) 

Next 

Console . WriteLine ( ) 

* parcours de la dataTable et affichage de chaque ligne 
For Each ligne In resultat . Rows 

' parcours de chaque ligne et affichage de chaque champ 

For Each colonne In resultat . Columns 

Console .Write (ligne (colonne . ColumnName) & vbTab) 

Next 

Console . WriteLine ( ) 

Next 

Console . ReadLine ( ) 
Stop 
End Sub 
End Module 



6. Compatibility du code 

En fonction du fournisseur utilise, vous devez importer I'espace de nom correspondant pour avoir un acces facile aux classes du fournisseur. 
Cependant, comme les classes de chacun des fournisseurs ne portent pas le meme nom, votre code sera specifique a un type de fournisseur. II 
est toutefois possible d'ecrire du code pratiquement independant du type de fournisseur. Pour cela, au lieu d'utiliser les classes specifiques a 
chacun des fournisseurs, vous pouvez utiliser comme type de donnees les interfaces qu'elles implementent. L'utilisation d'une classe specifique 
n'est indispensable que pour la creation de la connexion. Une fois que la connexion est creee, vous pouvez travailler uniquement avec des 
interfaces. L'exemple de code suivant liste le contenu d'une table d'une base SQL Server, en utilisant uniquement des interfaces. 



Module accesBdPar Interfaces 
Dim ctn As IDbConnect ion 
Public Sub main () 

* c'est la seule ligne de code specifique a un fournisseur 
ctn = New System . Data . SqlClient . SqlConnect ion ( "Data Source=TG; Initial 
Catalog=Northwind; Integrated Security=True " ) 
Dim cmd As IDbCommand 
cmd = ctn . CreateCommand 
ctn . Open ( ) 

cmd . CommandText = "select * from products" 
Dim lecteur As IDataReader 
lecteur = cmd . ExecuteReader 
Console . WriteLine ( "Lecture des donnees dans une base SQL Server") 
Do While lecteur. Read 

Console . WriteLine ( "numero : {0} nom produit : {1}", 
lecteur . Get Int32 (0) , lecteur . GetSt ring ( 1 ) ) 
Loop 
End Sub 
End Module 



L 'execution de ce code affiche le resultat suivant : 



Lecture 


des 


donnees dans 


une base SQL Server 


numero 


56 


nom produit 


Gnocchi di nonna Alice 


numero 


57 


nom produit 


Ravioli Angelo 


numero 


58 


nom produit 


Escargots de Bourgogne 


numero 


59 


nom produit 


Raclette Courdavault 


numero 


60 


nom produit 


Camembert Pierrot 


numero 


61 


nom produit 


Sirop d' erable 


numero 


62 


nom produit 


Tarte au sucre 



Si cette application doit ensuite migrer vers un autre type de base de donnees, il n'y a que la ligne concernant la connexion a modifier. Si les 
donnees sont maintenant disponibles dans une base Access, la creation de la connexion prend alors la forme suivante : 



ctn = New System . Data . OleDb . OleDbConnect ion ( "Provider=Microsof t . Jet . OLEDB .4.0; 

Data Source=C : \Document s and Settings\tgroussard\Mes documents\livre vb.net 2005\ acces aux bases de donnees\exemples\NWIND.MDB") 
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L'execution du code ainsi modifie genere bien le meme resultat : 



Lecture 


des 


donnees dans 


une base Access 


numero 


56 


nom produit 


Gnocchi di nonna Alice 


numero 


57 


nom produit 


Ravioli Angelo 


numero 


58 


nom produit 


Escargots de Bourgogne 


numero 


59 


nom produit 


Raclette Courdavault 


numero 


60 


nom produit 


Camembert Pierrot 


numero 


61 


nom produit 


Sirop d' erable 


numero 


62 


nom produit 


Tarte au sucre 



II convient, par contre, d'etre prudent et de ne pas utiliser d'instructions SQL specifiques a un type de base de donnees particulier. Pour faciliter 
la relecture du code, il est preferable de regrouper toutes les instructions SQL sous forme de constantes de type chaine de caracteres au debut 
de chaque module. Avec cette technique, vous n'aurez pas a chercher des instructions SQL au milieu de centaines de lignes de code Visual 
Basic. II convient d'etre egalement prudent lors de I'utilisation de parametres dans une instruction SQL. Le fournisseur pour SQL Server utilise 
des parametres nommes done I'ordre de creation des parametres n'a pas d'importance. 

Le fournisseur pour OLE DB utilise la position des parametres dans I'instruction SQL, pour le remplacement lors de l'execution. L'ordre de la 
creation des parametres est done, dans ce cas, capital pour le bon fonctionnement de I'instruction. 
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Utilisation du mode connecte 



Dans ce chapitre, nous allons aborder les operations pouvant etre executees sur une base de donnees, en utilisant le 
mode connecte. Certaines notions etudiees dans ce chapitre seront egalement utiles pour le fonctionnement en mode 
deconnecte. Pour tester les differentes fonctionnalites etudiees dans ce chapitre, nous utiliserons un serveur SQL 
Server 2000. La base de donnees utilisee sera la base Northwind qui est creee par defaut a 1'installation du serveur. 
Une partie de la structure de la base est disponible sur le schema ci-dessous. 
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1. Connexion a une base 

Pour pouvoir travailler avec un serveur de base de donnees, une application doit etablir une connexion reseau avec le 
serveur. La classe sqiconnection est capable de gerer une connexion vers un serveur SQL Server version 7.0 ou 
ulterieure. Comme pour tout objet, nous devons en premier lieu declarer une variable. 



Dim ctn As System . Data . SqlClient . SqlConnection 



Puis, nous devons creer I'instance de la classe et I'initialiser en appelant un constructeur. L'initialisation va consister 
essentiellement a indiquer les parametres utilises pour etablir la connexion avec le serveur. Ces parametres sont 
definis sous forme d'une chaine de caracteres. lis peuvent etre indiques lors de I'appel du constructeur ou modifies par 

la Suite par la propriete ConnectionString. 



a. Chaine de connexion 



Le format standard d'une chaine de connexion est constitue d'une serie de couples mot cle/ valeur separes par des 
points virgules. Le signe = est utilise pour I'affectation d'une valeur a un mot cle. L'analyse de la chaine est effectuee 
lors de I'affectation de la chaine a la propriete ConnectionString. Les valeurs associees aux mots cles sont alors 
extraites et affectees aux differentes proprietes de la connexion. Si une erreur de syntaxe est trouvee alors une 
exception est generee immediatement et aucune propriete n'est modifiee. Par contre, certaines proprietes ne 
pourront etre controlees que lors de I'ouverture de la connexion. C'est alors a ce moment qu'une exception sera 
declenchee si la chaine de connexion contient une erreur. La chaine de connexion ne peut etre modifiee que si la 
connexion est fermee. Les mots cles suivants sont disponibles pour une chaine de connexion : 

Connect Timeout 



Duree en secondes pendant laquelle I'application attendra une reponse du serveur a sa demande de connexion. 
Passe ce delai, une exception est declenchee. 
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Data Source 

Nom ou adresse reseau du serveur vers lequel est etablie la connexion. Le numero du port peut etre specifie a la 
suite du nom ou de I'adresse reseau. S'il n'est pas indique, le numero de port est egal a 1433. 

Initial Catalog 

Nom de la base sur laquelle doit s'effectuer la connexion. 
Integrated Security 

Si cette valeur est positionnee sur false alors un nom d'utilisateur et un mot de passe doivent etre fournis dans la 
chaine de connexion. Sinon, le compte Windows de I'utilisateur est utilise pour I'authentification. 

Persist Security Info 

Si cette valeur est positionnee sur true, alors le nom de I'utilisateur et son mot de passe sont accessibles par la 
connexion. Pour des raisons de securite, cette valeur doit etre positionnee sur false. C'est d'ailleurs le cas si vous 
n'indiquez rien dans votre chaine de connexion. 

Pwd 

Mot de passe associe au compte SQL Server utilise pour la connexion. S'il n'y a pas de mot de passe associe a un 
compte, cette information peut etre omise dans la chaine de connexion. 

User ID 

Nom du compte SQL Server utilise pour la connexion. 
Connection LifeTime 

Indique la duree de vie d'une connexion dans un pool de connexions. Une valeur egale a zero indique une duree de 
vie infinie. 

Connection Reset 

Indique si la connexion est reinitialisee lors de sa remise dans le pool. 
Max Pool Size 

Nombre maximum de connexions dans le pool. 
Min Pool Size 

Nombre minimum de connexions dans le pool. 
Pooling 

Indique si la connexion peut etre extraite d'un pool de connexion. 
Une chaine de connexion prend done la forme minimale suivante : 

ctn . ConnectionString = "Data Source=Minerve ; Initial Catalog=Northwind; Integrated 
Security=true " 



b. Pool de connexions 

Les pools de connexions permettent d'ameliorer les performances d'une application, en evitant la creation de 
connexions supplementaires. Lorsqu'une connexion est ouverte, un pool de connexions est cree en se basant sur un 
algorithme base, lui-meme sur la chaine de connexion. Chaque pool est done associe a une chaine de connexion 
particuliere. Si une nouvelle connexion est ouverte et qu'il n'existe pas de pool correspondant exactement a sa 
chaine de connexion, alors un nouveau pool est cree. Les pools de connexions ainsi crees existeront jusqu'a la fin de 
I'application. Lors de la creation du pool, d'autres connexions peuvent etre creees automatiquement pour satisfaire la 
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valeurMin Pool size indiquee dans la chaine de connexion. D'autres connexions pourront, par la suite, etre ajoutees 
au pool jusqu'a atteindre la valeur Max Pool size de la chaine de connexion. Lorsqu'une connexion est requise, elle 
peut etre obtenue a partir d'un pool de connexion (s'il en existe un correspondant exactement aux caracteristiques 
de la connexion demandee). II faut bien sur que le pool en contienne une disponible et active. 

Si le nombre maximum de connexion dans le pool est atteint, la demande est mise en file d'attente jusqu'a ce qu'une 
connexion soit a nouveau disponible. Une connexion est remise a la disposition du pool, lors de sa fermeture ou lors 
de I'appel de la methode Dispose sur la connexion. Pour cette raison, il est recommande de fermer explicitement les 
connexions lorsqu'elles ne sont plus utilisees dans I'application. Les connexions sont retirees du pool lorsque celui-ci 
detecte que la connexion n'a pas ete utilisee depuis un certain temps, indique par la valeur connectionLifeTime de la 
chaine de connexion. El les sont egalement retirees du pool, s'il detecte que la connexion avec le serveur a ete 
interrompue. 

c. Evenements de connexion 

La classe SQLConnection propose deux evenements vous permettant d'etre prevenu lorsque I'etat de la connexion 
change ou qu'un message d'information est envoye par le serveur. L'evenement statechanged est declenche lors d'un 
changement d'etat de la connexion. Le gestionnaire de cet evenement regoit un parametre de type 
stateChangeEventArg permettant d'obtenir, avec la propriete Currentstate, I'etat actuel de la connexion et avec la 
propriete originaistate, I'etat de la connexion avant le declenchement de l'evenement. Pour tester la valeur de ces 
deux proprietes, vous pouvez utiliser I'enumeration connectionstate. 



Private Suh ctJi_StaceC.hangc (=JyV.ni scr.dcr As Object, EyVal c Is Sy s teen r Dots . S t-RteCfiar.gc Event Ac gs ) 
IS e, cueecjitsi&t* * 



Console ■ ice 

End II 
End STliU 
End Module 
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Comet PonStat c ■ Open 


Syst«n.D^ta.ConnKtiaiTS^te.Cp=ri = 1 
La cone^ion est w-t<tT te. 





L'evenement infoMessage est declenche lorsque le serveur vous informe d'une situation, anormale, mais qui ne 
justifie pas le declenchement d'une exception (severite du message inferieure a 10). Le gestionnaire d'evenements 
associe regoit un parametre de type infoMessageEventArgs. Par la propriete Errors de ce parametre, vous avez acces 
a des objets sqiErrors correspondant aux informations envoyees par le serveur. Le code suivant affiche, sur la 
console, les messages d'informations en provenance du serveur. 



Private Sub ctn_Inf oMessage (ByVal sender As Object, ByVal e As System. Data. 
SqlClient . Sqllnf oMessageEventArgs ) Handles ctn . InfoMessage 

Dim info As SqlClient . SqlError 

For Each info In e. Errors 

Console . WriteLine ( inf o . Message ) 

Next 
End Sub 



2. Execution d'une commande 

Apres avoir eta bli une connexion vers un serveur de base de donnees, vous pouvez lui transmettre des instructions 
SQL. La classesqicommand est utilisee pour demander au serveur I'execution d'une commande SQL. Cette classe 
contient plusieurs methodes permettant I'execution de differents types de requetes SQL. La classe sqicommand peut 
etre instanciee de fagon classique, en utilisant un de ses constructeurs ou une instance peut etre obtenue par la 
methode createCommand de la connexion. 



a. Creation d'une commande 

La premiere possibility pour creer une sqicommand est d'utiliser un des constructeurs de la classe. L'utilisation du 
constructeur par defaut vous oblige par la suite a utiliser differentes proprietes, pour fournir les informations 
concernant I'instruction SQL a executer. 

La proprietecommandText contient le texte de I'instruction SQL a executer. La propriete connection doit faire reference 
a une connexion valide vers le serveur de base de donnees. Le code suivant resume ces differentes operations : 



Dim cmd As SqlCommand 
cmd = New SqlCommand 
cmd . Connection = ctn 

cmd. CommandText = " SELECT * FROM Products 
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La deuxieme solution est d'utiliser un constructeur surcharge, acceptant comme parametres, 1'instruction SQL sous 
forme d'une chaine de caracteres et la connexion utilisee par cette sqicommand. Le code precedent peut done se 
resumer a la ligne suivante : 



Dim cmd As new SqlCommand ( " SELECT * FROM Products", ctn) 



La troisieme solution est d'utiliser la methode createCommand de la connexion. Dans ce cas, seule I'instruction SQL a 
besoin d'etre specifiee par la suite. 



Dim cmd as SqlCommand 
cmd = ctn . CreateCommand 

cmd. CommandText = " SELECT * FROM Products" 



b. Lecture d'informations 

Frequemment, I'instruction SQL d'une SqlCommand selectionne un ensemble d'enregistrements dans la base, ou 
eventuellement une valeur unique etant le resultat d'un calcul effectue sur des valeurs contenues dans la base. Une 
instruction SQL, renvoyant un ensemble d'enregistrements, doit etre executee par la methodeExecuteReader. Cette 
methode retourne un objet DataReader qui va permettre, par la suite, la lecture des informations en provenance de la 
base de donnees. Si I'instruction SQL ne renvoie qu'une valeur unique, la methodeExecuteScaiar se charge de 
I'execution et retourne elle-meme la valeur en provenance de la base de donnees. 

Le code suivant permet la recuperation du nombre de commandes passees par un client : 



cmd . CommandText = " select count (orderid) from orders where customerid=' FRANK' " 
Console . WriteLine (" le client FRANK a passe {0} commande ( s ) " , cmd. ExecuteScalar ( ) ) 



Le cas d'instructions renvoyant plusieurs enregistrements est un peu plus complexe. Apres avoir execute I'instruction 
par la methode ExecuteReader et recupere I'objet DataReader vous pouvez utiliser ce dernier pour parcourir les 
resultats renvoyes. La methode Read de la classe DataReader permet le deplacement dans I'ensemble des 
enregistrements renvoyes. Cette methode retourne un boolean indiquant s'il reste un enregistrement suivant. Le 
deplacement n'est possible que du premier au dernier enregistrement. Ce type de deplacement est appele Forward 
only. Les informations contenues dans I'enregistrement courant sont accessibles par une des methodes Get. . . de la 
classeDataReader. Ces methodes permettent d'extraire les donnees de I'enregistrement et de les convertir dans un 
type de donnees .NET. II en existe une version pour chaque type de donnees du Framework .NET. II faut bien sur que 
les informations presentes dans I'enregistrement, puissent etre converties dans le type correspondant. Si la 
conversion est impossible, il y a declenchement d'une exception. Les methodes Get. . . attendent, comme parametre, 
le numero du champ a partir duquel elles recuperent I'information. Vous pouvez aussi utiliser la propriete, par defaut, 
item du DataReader en indiquant le nom du champ concerne. II n'y a pas, dans ce cas, de conversion et la valeur 
renvoyee est de type object. 

Le code suivant affiche la liste de toutes les categories de produits disponibles : 



Imports System . Data . SqlClient 
Module TestExecuteReader 

Dim cmd As SqlCommand 

Dim ctn As SqlConnection 

Dim lecteur As SqlDataReader 

Public Sub main ( ) 

ctn = New SqlConnection ( ) 

ctn . ConnectionString = "Data Source=localhost ; Initial Catalog=Northwind; 
Integrated Security=true " 
ctn . Open ( ) 

cmd = New SqlCommand 
cmd . Connection = ctn 

cmd . CommandText = " select * from categories" 
lecteur = cmd . ExecuteReader 
Do While lecteur. Read 

Console . WriteLine ( "numero de la categorie : { 0 } " & vbTab & 
"Description : { 1 } " , lecteur . Get I nt 3 2 ( 0 ) , lecteur ( "CategoryName " ) ) 
Loop 

lecteur . Close ( ) 
ctn . Close ( ) 
End Sub 
End Module 
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L'utilisation d'une connexion par un DataReader s'effectue de maniere exclusive. Pour que la connexion soit a nouveau 
disponible pour une autre commande, vous devez obligatoirement fermer le DataReader apres son utilisation. 

c. Modification des informations 

La modification des informations dans une base de donnees s'effectue principalement par les instructions sql insert, 
update, delete. Ces instructions ne retournent pas d'enregistrements en provenance de la base de donnees. Pour 
utiliser ces instructions, vous devez creer une sqicommand, puis demander I'execution de cette commande par la 
methodeExecuteNonQuery. Cette methode retourne le nombre d'enregistrements affectes par I'execution de 
I'instruction SQL contenue dans la sqicommand. Si la propriete commandText contient plusieurs instructions SQL, alors la 
valeur renvoyee par la methode ExecuteNonQuery correspond au nombre total de lignes affectees par toutes les 
instructions SQL de la sqicommand. 

Le code suivant ajoute une nouvelle entreprise de livraison dans la table Shippers : 



Imports System . Data . SqlClient 
Module TestExecuteNonQuery 

Dim cmd As SqlCommand 

Dim ctn As SqlConnection 

Public Sub main ( ) 

ctn = New SqlClient . SqlConnection ( ) 

ctn . ConnectionString = "Data Source=localhost ; Initial Catalog=Northwind; 
Integrated Security=true " 
ctn . Open ( ) 

cmd = New SqlClient . SqlCommand 
cmd . Connection = ctn 

cmd . CommandText = "Insert into shippers (companyname, phone) values 
( ^DHL' , ' 02 40 41 42 43' ) " 

Console . WriteLine ("{ 0 } ligne(s) ajoutee(s) dans la table", 
cmd . ExecuteNonQuery) 

ctn . Close ( ) 
End Sub 
End Module 



d. Utilisation de parametres 

La manipulation destructions SQL peut etre facilitee par la creation de parametres. lis permettent de construire des 
instructions SQL generiques, pouvant facilement etre reutilisees. Le principe de fonctionnement est semblable aux 
procedures et fonctions de Visual Basic. Une alternative a I'utilisation de parametres pourrait etre la construction 
dynamique destruction SQL par concatenation de chaines de caracteres. 

Ci-dessous, un exemple utilisant cette technique et permettant la recherche d'un client par son code (nous verrons 
ensuite comment ameliorer ce code en utilisant des parametres) : 



Imports System . Data . SqlClient 
Module TestRequeteConcat 

Dim cmd As SqlCommand 

Dim ctn As SqlConnection 

Dim lecteur As SqlDataReader 

Dim codeClient As String 

Public Sub main ( ) 

ctn = New SqlConnection ( ) 

ctn . ConnectionString = "Data Source=localhost ; Initial Catalog=Northwind; 
Integrated Security=true " 
ctn . Open ( ) 

cmd = New SqlCommand 
cmd . Connection = ctn 

Console . Write (" saisir le code du client recherche :") 
codeClient = Console . ReadLine ( ) 

cmd. CommandText = " SELECT * from Customers WHERE CustomerlD = x " 
& codeClient & " 

lecteur = cmd . ExecuteReader 
Do While lecteur. Read 

Console . WriteLine ( "nom du client: {0}", lecteur ( "ContactName ") ) 

Loop 

lecteur . Close ( ) 
ctn . Close ( ) 
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Console . ReadLine ( ) 
End Sub 
End Module 



La partie importante de ce code se situe lors de I'affectation d'une valeur a la propriete commandText. Une instruction 
SQL correcte doit etre construite par concatenation de chaines de caracteres. Dans notre cas, c'est relativement 
simple puisqu'il n'y a qu'une valeur variable dans I'instruction SQL, mais si plusieurs informations doivent varier, il y a 
une multitude de concatenations a realiser. Les erreurs classiques dans ces concatenations sont : 



• I'oubli d'un espace ; 



• I'oubli des caracteres v ' pour encadrer une valeur de type chaine de caracteres ; 



un nombre de caractere ' impair. 



Toutes ces erreurs ont, pour meme effet, la creation d'une instruction SQL invalide qui sera rejetee a I'execution par 
le serveur. 

L'utilisation des parametres simplifie considerablement I'ecriture de ce type de requete. Les parametres sont utilises 
pour marquer un emplacement dans une requete ou sera place, au moment de I'execution, une valeur litterale chaine 
de caracteres ou numerique. Les parametres peuvent etre nommes ou anonymes. Un parametre anonyme est 
introduit dans une requete par le caractere ?. Les parametres nommes sont specifies par le caractere @ suivi du nom 
du parametre. 

La requete de notre exemple precedent peut prendre les formes suivantes : 



cmd . 


CommandText = 


" SELECT 


* from 


Customers 


WHERE 


CustomerlD = ?" 


OU 


cmd . 


CommandText = 


" SELECT 


* from 


Customers 


WHERE 


CustomerlD = @Code" 



L'execution de la sqicommand echoue maintenant si aucune information n'est fournie pour le ou les parametres. 

cmd. CommandText = " SELECT * from Customer 3 WHERE Customer ID = @Code" 

da = We it DataSec 
da = New Sql&ata Adapter (cmd] 
[da. Fill (da , "Clients "jj 
table ds .Tables ("Clients") 
table. Rg usfQ) . BeglnEdit ( ) 
Console . 
□ odePos t 

La variable \3Gade* cfe* £tf* declares. 



A L 1 exception SqlErieeption nfa pas etc geree 



table . Rd 

table. Ro conitils de depanrtage i 

- _ : S 

Ic&tenir une aide tfcrdVe qe/ie>al pou* teste exception, j 



Console 



... ■ . 



= hRot*3(0) ("PostalCode") ) 



Rechercher de I'aide en Eigne cotnplennente*e. , ■ 



Actions : 

Afflcher les d&ate... 

Copier le detail ds fc'exceptim dans te Fvesse-papiers 



La sqicommand doit avoir une liste de valeurs utilisees pour le remplacement des parametres, au moment de 
I'execution. Cette liste est stockee dans la collection Parameters de la sqicommand. Avant I'execution de la 
Sqicommand, il faut done creer les objets sqiParameter et les ajouter a la collection. Pour chaquesqiParameter, il faut 
fournir : 



• le nom du parametre ; 



• la valeur du parametre ; 



• la direction d'utilisation du parametre. 
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Les deux premieres informations sont indiquees lors de la construction de I'objet : 



Dim paramCodeClient As SqlParameter 

paramCodeClient = New SqlParameter (" @Code " , codeClient) 



La direction d'utilisation indique si I'information contenue dans le parametre, est passee au code SQL pour son 
execution (input) ou si c'est I'execution du code SQL qui va modifier la valeur du parametre (output) ou les deux 
(inputoutput). La propriete Direction de la classe SqlParameter indique le mode d'utilisation du parametre. 



paramCodeClient . Direction^] 



cmd. Parameters . Add (para 
lecteur = cmd . ExecuteRe 
Do While lecteur. Read 



ParameterDirection . Input 
ParameterDirection . InputOutput 
L=] ParameterDirection. Output 



Console. WriteLine (" f=] ParameterDirection. ReturnValue 



Loop 



ir ( "ContactName") ) 



Le parametre est maintenant pret a etre ajoute a la collection Parameters. II convient d'etre vigilant a ce niveau, si la 
requete utilise les parametres anonymes. Les parametres doivent obligatoirement etre ajoutes a la collection, dans 
I'ordre de leur apparition dans la requete. Si les parametres nommes sont utilises, il n'est pas indispensable de 
respecter cette regie, mais il est prudent de s'y conformer, si un jour le code SQL est modifie et n'utilise plus les 
parametres nommes. Ceci pourra etre le cas si vous devez changer de type fournisseur de donnees et que le 
nouveau n'accepte pas les parametres nommes dans une instruction SQL. La sqicommand est maintenant prete pour 
I'execution. A noter qu'avec cette solution nous n'avons pas a nous soucier du type de valeur attendue par 
1'instruction SQL pour savoir si nous devons I'encadrer avec des caracteres \ Si des parametres sont utilises en sortie 
de I'instruction SQL, ils ne seront disponibles qu'apres la fermeture du DataReader. L'exemple suivant affiche en plus 
du nom du client, le nombre de commandes qu'il a deja passees : 



Imports System . Data . SqlClient 

Module TestRequeteConcat 
Dim cmd As SqlCommand 
Dim ctn As SqlConnection 
Dim lecteur As SqlDataReader 
Dim codeClient As String 
Dim paramCodeClient As SqlParameter 
Dim paramNbCommandes As SqlParameter 



Public Sub main () 

ctn = New SqlConnection ( ) 

ctn . ConnectionString = "Data Source=localhost ; Initial Catalog=Northwind; 
Integrated Security=true " 
ctn . Open ( ) 

cmd = New SqlCommand 
cmd . Connection = ctn 

Console . Write (" saisir le code du client recherche :") 
codeClient = Console . ReadLine ( ) 

cmd. CommandText = " SELECT * from Customers WHERE CustomerlD = 
@Code; select @nbCmd=count (orderid) from orders where customerid=@code" 
paramCodeClient = New SqlParameter (" @Code " , codeClient) 
paramCodeClient . Direction = ParameterDirection . Input 
cmd . Parameters . Add (paramCodeClient ) 

paramNbCommandes = New SqlParameter (" @nbCmd" , Nothing) 
paramNbCommandes . Direction = ParameterDirection . Output 
cmd . Parameters . Add (paramNbCommandes ) 
lecteur = cmd . ExecuteReader 
Do While lecteur. Read 

Console . WriteLine ( "nom du client: {0}", lecteur ( "ContactName ") ) 

Loop 

lecteur . Close ( ) 

Console . WriteLine (" ce client a passe {0} commande ( s ) " , cmd . Parameters 
("@nbCmd") .Value) 

ctn . Close ( ) 

Console . ReadLine ( ) 
End Sub 
End Module 



e. Execution de procedure stockee 
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Les procedures stockees sont des elements d'une base de donnees correspondant a un ensemble destructions SQL, 
pouvant etre executees par simple appel de leur nom. Ce sont des veritables programmes SQL pouvant recevoir des 
parametres et renvoyer des valeurs. De plus, les procedures stockees sont enregistrees dans le cache memoire du 
serveur, sous forme compilee lors de leur premiere execution, ce qui accroit les performances pour les executions 
suivantes. Un autre avantage des procedures stockees est de centraliser sur le serveur de base de donnees tous les 
codes SQL d'une application. Si des modifications doivent etre apportees dans les instructions SQL, vous n'aurez que 
des modifications a effectuer sur le serveur sans avoir a reprendre le code de I'application, done sans avoir a 
regenerer et redeployer I'application. 

L'appel a une procedure stockee, a partir de Visual Basic, est pratiquement similaire a I'execution d'une instruction 
SQL. La propriete commandText contient le nom de la procedure stockee. Vous devez egalement modifier la propriete 
commandType avec la valeur commandType . storedProcedure pour indiquer que la propriete CommandText contient le nom 
d'une procedure stockee. Comme pour une instruction SQL, une procedure stockee peut utiliser des parametres en 
entree ou en sortie. II y a un troisieme type de parametre disponible pour les procedures stockees le type 
Returnvaiue. Ce type de parametre sert a recuperer la valeur renvoyee par I'instruction Return de la procedure 
stockee (meme principe qu'une fonction Visual Basic). Pour tester ces nouvelles notions, nous allons utiliser la 
procedure stockee suivante, qui retourne le montant total de toutes les commandes passees par un client. 



CREATE PROCEDURE TotalClient @code nchar(5) AS 
declare @total money 

select @total=sum (UnitPrice*Quantity* ( 1-Discount ) ) from Orders, [Order Details] 
where customerid=@code and Orders . orderid= [ order details ]. orderid 
return @total 
GO 



Au niveau du code Visual Basic, nous devons indiquer qu'il s'agit de I'execution d'une procedure stockee et ajouter un 
parametre pour recuperer la valeur de retour de la procedure stockee. Ce parametre doit s'appeler return_value. 



Imports System . Data . SqlClient 
Module TestProcedureStockee 

Dim cmd As SqlCommand 

Dim ctn As SqlConnection 

Dim paramCodeClient As SqlParameter 

Dim paramMontant As SqlParameter 

Dim codeclient As String 

Public Sub main ( ) 

Console .Write ( "saisir le code du client recherche :") 
codeClient = Console . ReadLine ( ) 
ctn = New SqlConnection ( ) 

ctn . ConnectionString = '"Data Source=localhost ; Initial 
Catalog=Northwind; Integrated Security=true" 
ctn . Open ( ) 

cmd = New SqlCommand 

cmd . Connection = ctn 

cmd. CommandText = "TotalClient" 

cmd . CommandType = CommandType . StoredProcedure 

paramCodeClient = New SqlParameter (" @Code " , codeClient) 

paramCodeClient . Direction = ParameterDirection . Input 

cmd . Parameters . Add (paramCodeClient ) 

paramMontant = New SqlParameter ( "RETURN_VALUE " , SqlDbType . Decimal ) 
paramMontant . Direction = ParameterDirection . ReturnValue 
cmd . Parameters . Add (paramMontant ) 
cmd . ExecuteNonQuery ( ) 

Console . WriteLine ( "Ce client a passe pour {0} Euros de commande ", 
paramMontant . Value ) 

Console . ReadLine ( ) 

ctn . Close ( ) 
End Sub 
End Module 
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Utilisation du mode non connecte 



Dans un mode non connecte, la liaison avec le serveur de base de donnees n'est pas permanente. II faut done conserver 
localement les donnees sur lesquelles on souhaite travailler. L'idee est de recreer, a I'aide de differentes classes, une 
organisation similaire a celle d'une base de donnees. Les principales classes sont representees sur le schema suivant : 



DataSet 



C'est le conteneur de plus haut niveau, il joue le meme role que la base de donnees. 



DataTable 



Comme son nom I'indique, c'est I'equivalent d'une table de base de donnees. 



DataRow 



Cette classe joue le role d'un enregistrement (ligne). 



DataColumn 



Cette classe remplace un champ (colonne) d'une table. 



UniqueConstraint 



C'est I'equivalent de la cle primaire d'une table, 



ForeignKeyConstraint 



C'est I'equivalent de la cle etrangere. 



DataRelation 



Represente un lien parent/enfant entre deux DataTable. 
Le schema ci-dessous represente cette organisation. 

DataSet 



DataTable 



Unique 
Constraint 



y0 A 



Data Ro w 



Data 
Column 



DataTable 



Unique 
Constraint 



7 



w 

■ 



ForeignKeyConstraint 
DataRelation 



Nous allons voir maintenant comment creer et manipuler toutes ces classes. 



1. Remplir un DataSet a partir d'une base de donnees 

Pour pouvoir travailler localement avec les donnees, nous devons les rapatrier depuis la base de donnees dans un 
DataSet. Chaque fournisseur de donnees fournit une classe DataAdapter, assurant le dialogue entre la base de 
donnees et un DataSet. Tous les echanges se font par I'intermediaire de cette classe, aussi bien de la base vers le 
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DataSet que du DataSet vers la base pour la mise a jour des donnees. Le DataAdapter utilisera une connexion pour 
contacter le serveur et une ou plusieurs commandes pour le traitement des donnees. 

a. Utilisation d'un DataAdapter 

La premiere chose a realiser est de creer une instance de la classe SQLDataAdapter. Nous devons ensuite configurer 
le DataAdapter afin de lui indiquer quelles donnees nous souhaitons rapatrier a partir de la base de donnees. La 
propriete seiectcommand doit referencer un objet command, contenant 1'instruction SQL chargee de selectionner les 
donnees. L'objet command utilise peut egalement appeler une procedure stockee. La seule contrainte est que 
1'instruction SQL executee par l'objet command soit une instruction select. La classe DataAdapter contient egalement 
les proprietes insertcommand, DeieteCommand et updateCommand referengant les objets Command, utilises lors de la mise 
a jour de la base de donnees. Tant que nous ne souhaitons pas effectuer de mise a jour de la base, ces proprietes 
sont facultatives. Elles seront etudiees plus en detail dans le chapitre consacre a la mise a jour de la base de 
donnees. 

La methode Fin de la classe DataAdapter est ensuite utilisee pour remplir le DataSet avec le resultat de I'execution 
de la commande seiectcommand. Cette methode attend, comme parametre, le DataSet qu'elle doit remplir et un objet 
DataTabie ou une chaine de caracteres utilisee pour nommer la DataTabie dans le DataSet. Le DataAdapter utilise, en 
interne, un objet DataReader pour obtenir le nom des champs et le type des champs pour creer la DataTabie dans le 
Dataset et ensuite le remplir avec les donnees. La DataTabie et les DataCoiumn sont crees uniquement s'ils n'existent 
pas deja, sinon la methode Fill utilise la structure existante. Si une DataTabie est creee, elle est ajoutee a la 
collectionTables du DataSet. Le type de donnees des DataCoiumn est defini en fonction des mappages prevus par le 
fournisseur de donnees, entre les types de la base de donnees et les types .NET. L'exemple suivant remplit un 
DataSet avec les code, nom, adresse et ville des clients. 



Imports System . Data . SqlClient 
Module TestDataSetl 

Dim cmd As SqlCommand 

Dim ctn As SqlConnection 

Dim ds As DataSet 

Dim da As SqlDataAdapter 

Public Sub main ( ) 

ctn = New SqlConnection ( ) 

ctn . ConnectionString = "Data Source=localhost ; Initial 
Catalog=Northwind; Integrated Security=true" 
cmd = New SqlCommand 
cmd . Connection = ctn 

cmd . CommandText = " SELECT Customerld, ContactName, Address, city from 
Customers " 

ds = New DataSet 

da = New SqlDataAdapter ( ) 

da . Seiectcommand = cmd 

da. Fill (ds, "Customers") 
End Sub 
End Module 



Dans ce code, la connexion n'a pas ete ouverte et fermee, explicitement. En effet, la methode Fill ouvre la 
connexion si elle n'est pas deja ouverte et dans ce cas, la referme egalement a la fin de son execution. Toutefois, si 
vous avez besoin d'utiliser plusieurs fois la methode Fill, il est plus efficace de gerer vous-meme I'ouverture et la 
fermeture de connexion. Dans tous les cas, la methode Fin laisse la connexion dans I'etat ou elle I'a trouvee. 

Un DataSet peut bien sur contenir plusieurs DataTabie creees a partir de DataAdapter differents. Les donnees 
peuvent meme provenir de bases de donnees differentes, voire de types de serveurs differents. 

Lorsque le DataAdapter construit la DataTabie, les noms des champs de la base sont utilises pour nommer les 
DataCoiumn. II est possible de personnaliser ces noms en creant des objets DataTabieMapping et en les ajoutant a la 
collection TableMappings du DataAdapter. Ces objets DataTabieMapping contiennent eux-memes des objets 
DataCoiumnMapping utilises par la methode Fin, comme traducteurs entre les noms des champs dans la base et les 
noms des Datacoiumn dans le DataSet. Dans ce cas, lors de I'appel de la methode Fill nous devons lui indiquer le 

nom du DataTabieMapping a Utiliser. 

Si, pour un ou plusieurs champs, il n'y a pas de mappage disponible, alors le nom du champ dans la base est utilise 
comme nom pour la DataCoiumn correspondante. Nous pouvons, par exemple, utiliser cette technique pour traduire 
les champs de la base Northwind. 

Le code suivant effectue cette traduction et affiche le nom des Datacoiumn du DataTabie cree : 



Imports System . Data . SqlClient 
Imports System . Data . Common 
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Module TestTableMapping 

Dim cmd As SqlCommand 

Dim ctn As SqlConnection 

Dim ds As DataSet 

Dim da As SqlDataAdapter 

Dim mappage As DataTableMapping 

Dim dc As DataColumn 

Public Sub main ( ) 

ctn = New SqlConnection ( ) 

ctn . ConnectionString = "Data Source=localhost ; Initial 
Catalog=Northwind; Integrated Security=true " 
cmd = New SqlCommand 
cmd . Connection = ctn 

cmd . CommandText = " SELECT Customerld, ContactName, Address, city from 
Customers" 

ds = New DataSet 

da = New SqlDataAdapter ( ) 

da . SelectCommand = cmd 

mappage = New DataTableMapping ( "Customers " , "Clients") 
mappage . ColumnMappings . Add ( "Customerld" , "CodeClient " ) 
mappage . ColumnMappings . Add ( "ContactName" , "Norn" ) 
mappage . ColumnMappings . Add ( "Address " , "Adresse " ) 
mappage . ColumnMappings . Add ( "city" , "Ville " ) 
da . TableMappings . Add (mappage ) 
da. Fill (ds, "Customers") 

For Each dc In ds . Tables ( "Clients " ) .Columns 

Console . Write (dc . ColumnName & vbTab) 
Next 

Console . ReadLine ( ) 
End Sub 
End Module 



Nous obtenons a I'affichage : 

CodeClient Nom Adresse Ville 

b. Ajout de contraintes existantes a un DataSet 

La methode Fill ne fait que transferer, vers le DataSet, les donnees en provenance de la base. Bien souvent, des 
contraintes de cles primaires sont utilisees dans la base de donnees et, par defaut, la methode Fill ne les rapatrie 
pas dans le DataSet. Pour pouvoir recuperer ces contraintes dans le DataSet, il y a deux solutions possibles : 

• Modifier la propriete MissingSchemaAction du DataAdapter avec la valeur MissingSchemaAction. AddWithKey 



da . MissingSchemaAction = MissingSchemaAction . AddWithKey 



• Proceder en deux etapes en appelant d'abord la methodeFiiischema du DataAdapter pour creer la structure 
complete de la DataTabie, puis ensuite appeler la methode Fill pour remplir la DataTabie avec les donnees. 



da . FillSchema (ds, SchemaType . Mapped, "Customers") 
da. Fill (ds, "Customers") 



Le deuxieme parametre de la methode FillSchema indique si le mappage doit etre pris en compte ou si les 
informations issues de la base sont utilisees. 

II est important d'ajouter les contraintes de cles primaires car la methode Fill va se comporter differemment si elles 
existent ou pas. 

Si les contraintes existent au niveau du DataSet, lorsque la methode Fill importe un enregistrement depuis la base, 
elle verifie s'il n'existe pas deja une ligne avec la meme valeur de cle primaire dans la DataTabie. Si c'est le cas, elle 
met uniquement a jour les champs de la ligne existante. Si, par contre, il n'y a pas de ligne avec une valeur de cle 
primaire identique, alors la ligne est creee dans la DataTabie. 

S'il n'y a pas de contrainte de cle primaire sur la DataTabie, la methode Fill ajoute tous les enregistrements en 
provenance de la base. II risque dans ce cas d'y avoir des doublons dans la DataTabie. Ceci est particulierement 



© ENI Editions - All rigths reserved 



- 3- 



important lorsque la methode Fill doit etre appelee plusieurs fois pour, par exemple, obtenir les donnees modifiees 
par une autre personne dans la base de donnees. 



2. Configurer un DataSet sans base de donnees 

II n'est pas necessaire de disposer d'une base de donnees pour pouvoir utiliser des DataSet. lis peuvent servir 
d'alternative a I'utilisation de tableaux pour la gestion interne des donnees d'une application. Dans ce cas, toutes les 
operations effectuees automatiquement par le DataAdapter devront etre realisees manuellement par le code. Ceci 
inclut notamment la creation des DataTabie avec leurs DataCoiumn. La premiere operation a realiser est de creer une 
instance de la classe DataTabie. Le constructeur attend, comme parametre, le nom de la DataTabie. Ce nom est ensuite 
utilise pour identifier la DataTabie dans la collection Tables du DataSet. Apres sa creation, la DataTabie ne contient 
aucune structure. Nous devons done creer une ou plusieurs DataCoiumn et les ajouter a la collection Columns de la 

DataTabie. 

Les DataCoiumn peuvent etre creees, en utilisant un des constructeurs de la classe, ou automatiquement lors de I'ajout 
a la collection Columns. La premiere solution fournit plus de souplesse puisqu'elle permet la configuration de 
nombreuses proprietes de la DataCoiumn au moment de sa creation. Vous devez au minimum indiquer un nom et un 
type de donnees pour la DataCoiumn. 



col = New DataCoiumn ( ("Ht", Type . GetType ( "int " ) ) 
table . Columns . Add ( col ) 

table. Columns. Add ("Tva", Type. GetType ("decimal") ) 



Une DataCoiumn peut egalement etre construite comme etant une expression basee sur une ou plusieurs autres 
DataCoiumn. Vous devez, dans ce cas, indiquer lors de la creation de la DataCoiumn, I'expression servant au calcul de sa 
valeur. Le type de donnees genere par I'expression doit bien sur etre compatible avec le type de donnees de la 
DataCoiumn. Vous devez egalement etre vigilant dans la conception de I'expression, en respectant la casse et en 
veillant a ne pas creer de reference circulaire entre les DataCoiumn. 



table. Columns. Add ("Ttc", Type . GetType (" System . Decimal ") , "Ht * (1 + (Tva /100))") 



Pour assurer I'unicite des valeurs d'une DataCoiumn, il est possible d'utiliser un type de DataCoiumn auto increments. La 
propriete Autoincrement de cette DataCoiumn doit etre positionnee sur true. Vous pouvez egalement modifier le pas 
decrementation avec la propriete Autoincrementstep et la valeur de depart avec la propriete Autoincrementseed. La 
valeur contenue dans cette DataCoiumn est calculee automatiquement lors de I'ajout d'une ligne a une DataTabie en 
fonction de ces proprietes et des lignes existant deja dans la DataTabie. 

Ce type de DataCoiumn est generalement utilise comme cle primaire d'une DataTabie. Vous avez la possibility de definir 
la cle primaire d'une DataTabie en fournissant a la propriete PrimaryKey un tableau contenant les differentes 
DataCoiumn devant composer la cle primaire. Les DataCoiumn concernees verront certaines de leurs proprietes 
automatiquement modifiees. La propriete unique sera positionnee sur true et la propriete aiiowdbnuII sur false. Si la 
cle primaire est constitute de plusieurs DataCoiumn, seule la propriete aiiowdbnuII sera modifiee sur ces DataCoiumn. 



col = New DataCoiumn ("Numero", Type 


.GetType (" System . Int 32 " ) ) 


col . Autoincrement = True 




col . AutoIncrementSeed = 1000 




col . Autoincrementstep = 1 




table . Columns . Add ( col ) 




table . PrimaryKey = New DataCoiumn () 


{col} 



3. Manipuler les donnees dans un DataSet 

Quelle que soit la methode utilisee pour remplir un DataSet, le but de toute application est de manipuler les donnees 
presentes dans le DataSet. La classe DataTabie contient de nombreuses proprietes et methodes facilitant la 
manipulation des donnees. 

a. Lecture des donnees 

La lecture des donnees est I'operation la plus frequente realisee sur un DataSet. II faut tout d'abord obtenir une 
reference sur la DataTabie contenant les donnees, puis nous pouvons parcourir la collection Rows de la DataTabie. 
Cette collection est une instance de la classe DataRowCoiiection. Elle dispose de la propriete item, par defaut, 
permettant I'acces a une ligne particuliere par un index. La propriete count permet de connaitre le nombre de lignes 
disponibles. Les habitues de ADO seront un peu perdus au debut, car dans une DataTabie, il n'y a pas de notion de 
pointeur d'enregistrement, d'enregistrement courant, de methodes de deplacement dans le jeu de resultats. Si vous 
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voulez gerer toutes ces notions, vous devez le prevoir explicitement dans votre code. La methode GetEnumerator met 
a notre disposition une instance de classe implementant I'interface Enumerator. Par cette instance de classe, nous 
avons acces aux methodes MoveNext et Reset ainsi qu'a la propriete Current. Ces trois elements permettent de 
parcourir facilement toutes les lignes de la DataTabie. Chaque ligne correspond a une instance de la classe DataRow. 
Cette classe possede egalement une propriete item, par defaut, fournissant un acces aux differents champs de la 
DataRow. Chaque champ peut etre obtenu par son nom ou par son index. 

Le code suivant illustre ces notions en affichant la liste des clients : 



Imports System . Data . SqlClient 
Module TestLectureDataTable 

Dim cmd As SqlCommand 
Dim ctn As SqlConnection 
Dim ds As DataSet 
Dim da As SqlDataAdapter 
Dim en As IEnumerator 

Public Sub main ( ) 

ctn = New SqlConnection ( ) 

ctn . ConnectionString = "Data Source=localhost ; Initial 
Catalog=Northwind; Integrated Security=true " 
cmd = New SqlCommand 
cmd . Connection = ctn 

cmd . CommandText = " SELECT ContactTitle, ContactName from Customers" 

ds = New DataSet 

da = New SqlDataAdapter ( ) 

da . SelectCommand = cmd 

da. Fill (ds, "Customers") 

A on recupere 1' enumerateur sur les lignes de la DataTabie 

en = ds . Tables ( "Customers "). Rows . GetEnumerator 

A on se replace au debut de la table (par securite) 

en . Reset ( ) 

A on boucle tant que la methode MoveNext nous indique qu'il reste des 

lignes 

Do While en. MoveNext 

* on accede aux champs par le nom 

Console . Write (en . Current ( "ContactName " ) & vbTab) 

A ou par le numero 

Console . WriteLine (en . Current ( 0 ) ) 

Loop 

Console . ReadLine ( ) 
End Sub 
End Module 



b. Creation de contraintes sur une DataTabie 

Vous pouvez utiliser des contraintes pour mettre en ceuvre des restrictions sur les donnees presentes dans une 
DataTabie. Les contraintes constituent des regies qui sont appliquees a une DataCoiumn ou a ses DataCoiumn liees. 
Elles determinent les actions effectuees lorsque la valeur contenue dans une ligne est modifiee. Elles sont prises en 
compte pour un DataSet, uniquement, si sa propriete Enf orceConstraints est positionnee sur true. 

Deux types de contraintes sont utilisables : 
UniqueConstraint 

Ce type de contrainte va garantir que la ou les valeurs presentes dans une DataCoiumn ou un groupe de DataCoiumn 
sont uniques. La mise en place d'une contrainte unique s'effectue en creant une instance de la classe 
UniqueConstraint avec la liste des DataCoiumn concernees par la contrainte. Cette UniqueConstraint doit, ensuite, 
etre ajoutee a la collection Constraints de la DataTabie. 



table . Constraints . Add (New UniqueConstraint (New DataColumn() {col})) 



Si la contrainte ne porte que sur une DataCoiumn, il est aussi possible de modifier simplement la propriete unique de 
cette DataCoiumn sur true, pour creer une contrainte unique. A noter egalement que la creation d'une cle primaire 
genere automatiquement une contrainte unique, par I'inverse n'est pas vrai. La violation de la contrainte, a la suite 
de la modification d'une ligne, declenche une exception. 
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ForeignKeyConstraint 



Les ForeignKeyConstraint controlent comment vont se comporter les DataTabie liees lors de la modification ou de la 
suppression d'une valeur dans la DataTabie principale. Une action differente peut etre envisagee pour une 

Suppression et une modification. La Classe ForeignKeyConstraint dispose des proprietes DeleteRule et UpdateRule 

indiquant le comportement, lors de la suppression ou de la modification. Les valeurs suivantes sont possibles : 
Cascade 

La suppression ou modification est propagee a la ou aux lignes liees. 
SetNull 

La valeur est modifiee a DBNull dans les lignes liees. 
SetDefault 

La valeur par defaut est prise dans les lignes liees. 
None 

Aucune action n'est effectuee sur les lignes liees. 

L'ajout d'une ForeignkeyConstraint se fait par la creation d'une instance de la classe en lui indiquant la ou les 
DataCoiumn de DataTabie parent et la ou les DataCoiumn de la table enfant. Si plusieurs DataCoiumn font partie de la 
contrainte, elles sont fournies sous forme de tableau. 

Le code suivant ajoute une contrainte entre la DataTabie Factures et la DataTabie LignesFacture, pour que la 
suppression d'une facture entraine la suppresion de toutes ses lignes. 



fkFact_LignesFact = New ForeignKeyConstraint ( "FK_FACT_LIGNESFACT" , 

ds . Tables ( "Factures " ) . Columns ( "Numero" ) , 

ds . Tables ( "LignesFacture " ) . Columns ( "NumFact " ) ) 

f kFact_LignesFact . AcceptRe jectRule = AcceptRe jectRule . Cascade 
f kFact_LignesFact . DeleteRule = Rule. Cascade 
ds . Enf orceConstraint s = True 



c. Ajout de relations entre les DataTables 

Dans un DataSet contenant plusieurs DataTabie, vous pouvez ajouter des relations entre les DataTabie. Ces relations 
permettent la navigation entre les lignes des differentes DataTabie. Une instance de la classeDataReiation doit etre 
creee et ajoutee a la collection Relations du DataSet. La creation peut se faire directement par la methode Add de la 
collection DataReiations. Les informations a fournir sont : 

• Le nom de la relation permettant de retrouver par la suite la DataReiation dans la collection. 

• La ou les DataCoiumn parentes sous forme d'un tableau de DataCoiumn s'il y en a plusieurs. 

• La ou les DataCoiumn enfants sous forme d'un tableau, s'il y en a plusieurs. 
Le code suivant ajoute une relation entre la table Customers et la table Orders : 



ds . Relations . Add ( "Client_Commandes " , ds . Tables ( "Customers " ) . 
Columns ( "Customerld" ) , 

ds . Tables ( "Orders " ) . Columns ( "Customerld" ) ) 



A noter que les DataReiation fonctionnent parallelement avec les ForeignKeyConstaint et les UniqueConstraint. Par 

defaut, la creation de la relation va placer une UniqueConstraint sur la table parent et une ForeignKeyConstraint sur 
la table enfant. Si vous ne souhaitez pas que ces contraintes soient ajoutees automatiquement si elles n'existent 
pas, vous devez ajouter un boolean false comme quatrieme parametre, lors de l'ajout de la DataReiation. 

d. Parcourir les relations 



- 6- 



© ENI Editions - All rigths reserved 



Le but principal des relations est de permettre la navigation d'une DataTabie vers une autre a I'interieur d'un DataSet. 
Nous pouvons ainsi obtenir tous les objets DataRow d'une table lies a une DataRow d'une autre DataTabie. Par 
exemple, apres avoir charge les tables Customers et Orders dans le DataSet et etabli une relation entre ces 
deux tables, nous pouvons, a partir d'une ligne de la DataTabie Clients obtenir depuis la DataTabie Orders toutes 
les commandes de ce client. La methode GetchiidRows retourne, sous forme d'un tableau de DataRow, toutes les 
lignes contenant les commandes de ce client. 

Cette methode prend, comme parametre, le nom de la DataReiation utilisee pour le lien. L'exemple du code suivant 
met cela en application, en affichant pour chaque client le numero et la date de ses commandes : 



Imports System . Data . SqlClient 
Module TestRelations 

Dim cmdCustomers, cmdOrders As SqlCommand 

Dim ctn As SqlConnection 

Dim ds As DataSet 

Dim daCustomers, daOrders As SqlDataAdapter 
Dim ligneClient, ligneCommandes As DataRow 

Public Sub main ( ) 

ds = New DataSet 

ctn = New SqlConnection ( ) 

ctn . ConnectionString = "Data Source=localhost ; Initial 
Catalog=Northwind; Integrated Security=true " 
cmdCustomers = New SqlCommand 
cmdCustomers . Connection = ctn 

cmdCustomers . CommandText = " SELECT * from Customers" 
daCustomers = New SqlDataAdapter ( ) 
daCustomers . SelectCommand = cmdCustomers 
daCustomers .Fill (ds , "Customers " ) 
cmdOrders = New SqlCommand 
cmdOrders . Connection = ctn 

cmdOrders . CommandText = " SELECT * from Orders" 
daOrders = New SqlDataAdapter ( ) 
daOrders . SelectCommand = cmdOrders 
daOrders . Fill (ds , "Orders") 

ds . Relations . Add ( "Client_Commandes " , ds . Tables ( "Customers " ) . Columns 
( "Customer Id" ) , ds . Tables ( "Orders " ) . Columns ( "Customer Id" ) ) 
For Each ligneClient In ds . Tables ( "Customers " ) .Rows 
Console . WriteLine (ligneClient ( "ContactName" ) ) 

For Each ligneCommandes In ligneClient . GetChildRows ( "Client_Commandes " ) 
Console . WriteLine (vbTab & "commande N {0} du {1}", 
ligneCommandes ("Orderld") , ligneCommandes ( "OrderDate" ) ) 

Next 

Next 
End Sub 
End Module 

La navigation d'une ligne enfant vers une ligne parent est aussi possible, en utilisant la methode GetParentRow qui, 
elle aussi, attend comme parametre le nom de la relation utilisee comme lien. 

La partie du code suivant affiche pour chaque commande le nom du client I'ayant passee : 

For Each ligneCommandes In ds . Tables ( "Orders "). Rows 

Console . WriteLine (" la commande {0} a ete passee par {1}", 
ligneCommandes ( "Orderld" ) , ligneCommandes . GetParentRow ( "Client_Commandes " ) 
("ContactName") ) 
Next 



e. Etat et versions d'une DataRow 

La classe DataRow est capable de suivre les differentes modifications apportees aux donnees qu'elle contient. La 
propriete Rowstate permet de controler les modifications apportees a la ligne. 

Cinq valeurs definies dans une enumeration sont possibles pour cette propriete : 
Unchanged 

La ligne n'a pas change depuis le remplissage du DataSet par la methode Fill ou la validation des modifications par 

la methode AcceptChanges. 
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Added 



La ligne a ete ajoutee mais les modifications n'ont pas encore ete validees par la methode Acceptchanges. 
Modified 

Un ou plusieurs champs de la ligne ont ete modifies. 
Deleted 

La ligne a ete effacee mais les modifications n'ont pas encore ete validees par la methode Acceptchanges. 
Detached 

La ligne a ete creee mais ne fait pas encore partie de la collection Rows d'une DataTabie. 

Les differentes versions d'une ligne sont egalement disponibles. Lorsque vous accedez aux valeurs contenues dans 
une ligne, vous pouvez specifier la version qui vous interesse. 

Pour cela, Enumeration DataRowVersion propose quatre valeurs : 
Current 

Version actuelle de la ligne. Cette version n'existe pas pour une ligne dont I'etat est Deleted. 
Default 

Version par defaut de la ligne. Pour une ligne dont I'etat est Added, Modified, unchanged, cette version est equivalente 
a la version Current. Pour une ligne dont I'etat est Deleted, cette version est equivalente a la version original. Pour 
une ligne dont I'etat est Detached, cette version est egale a la version Proposed. 

Original 

Version originale de la ligne. Pour une ligne dont I'etat est Added, cette version n'existe pas. 
Proposed 

Version transitoire disponible pendant une operation de modification de la ligne ou pour une ligne ne faisant pas 
partie d'une collection Rows d'une DataTabie. 

L'indication de la version desiree doit etre specifiee, lors de I'acces a un champ particulier d'une DataRow. Pour cela, il 
faut utiliser I'une des constantes precedentes, a la suite du nom ou de I'index du champ, lors de I'utilisation de la 
propriete item, par defaut, de la DataRow. 



/ 

_Ll j DataRow Version. Current 
\M DataRowVersion. Default 
_e] DataRowVersion. Original 
DataRowVersion. Proposed 

ds . Tables ( "Customers") . Rous(l) ( "ContactName", 

Ces differentes versions seront utilisees, lors de la mise a jour de la base de donnees, pour par exemple gerer les 
acces concurrents. 



f. Ajout de donnees 

L'ajout d'une ligne a une DataTabie s'effectue simplement en ajoutant une DataRow a la collection Rows d'une 
DataTabie. II faut, au prealable, creer une instance de la classe DataRow. C'est a ce niveau que nous rencontrons un 
probleme. 

Pi™ nouvelieLignc As Datn^gu 

nowelleLigjfu: - K&jJ^^?£ 

*5 ^a™,l>ata.l>ataRjtw.Pro6Kted 5ob rJewltxddei fit System. Data. &attfjt>™6Lpfcl£iy n'estpjsaccess&tedarij os omtfifcJtc. c*r i e£i "Protected. 
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II n'y a pas de constructeur disponible pour la classe DataRow. Rassurez-vous ce n'est pas une erreur de Visual Basic, 
mais c'est bien volontairement qu'il n'existe pas de constructeur pour cette classe. En effet, lorsque nous avons 
besoin d'une nouvelle instance d'une DataRow, nous ne voulons pas une DataRow quelconque mais une DataRow 
specifique au schema de notre DataTabie. C'est pour cette raison que c'est a elle qu'est confie le soin de creer 
I'instance dont nous avons besoin par I'intermediaire de la methode NewRow. 



Dim nouvelleLigne As DataRow 

nouvelleLigne = ds . Tables ( "Customers "). NewRow ( ) 



L'etat de cette ligne est, pour I'instant, Detached. Nous pouvons ensuite ajouter des donnees dans cette nouvelle 
ligne. 



nouvelleLigne ( "ContactName " ) = "Dupond" 



Apres cela, il nous reste a ajouter la ligne a la collection Rows de la DataTabie. 



ds . Tables ( "Customers " ) . Rows . Add (nouvelleLigne ) 



L'etat de cette nouvelle ligne est maintenant Added. 

g. Modification de donnees 

La modification des donnees contenues dans une ligne est realisee, simplement, en affectant aux champs 
correspondants, les valeurs souhaitees. Ces valeurs sont stockees dans la version Current de la ligne. L'etat de la 
ligne est alors Modified. Cette solution presente un petit inconvenient. Si plusieurs champs d'une ligne doivent etre 
modifies, il peut y avoir pendant la modification, des etats transitoires qui violent une ou plusieurs contraintes placees 
sur la DataTabie. C'est, par exemple, le cas s'il y a sur la DataTabie, une contrainte de cle primaire placee sur deux 
DataCoiumn. Ceci a pour effet de declencher une exception. Pour pallier ce probleme, nous pouvons demander 
temporairement I'arret de la verification des contraintes pour cette ligne. La methode BeginEdit passe la ligne en 
mode edition et suspend done la verification des contraintes pour cette ligne. Les valeurs affectees aux champs ne 
sont pas stockees dans la version current de la ligne mais dans la version Proposed. Lorsque toutes les modifications 
sont effectuees sur la ligne, vous pouvez les valider ou les annuler en appelant la methode EndEdit ou la methode 
canceiEdit. Vous pouvez egalement verifier les valeurs, en gerant I'evenement coiumnchanged de la DataTabie. Dans 
le gestionnaire d'evenements, vous recevez un argument de type DataCoiumnChangeEventArg permettant de savoir 

quelle DataCoiumn a ete modifiee (args .Column. ColumnName), la valeur proposee pour cette DataCoiumn 

(args . Proposedvaiue) et permettant d'annuler les modifications (args . row. CanceiEdit). En cas de validation avec la 
methode EndEdit, la version Proposed de la ligne est recopiee dans la version current et l'etat de la ligne devient 
Modified. Si, par contre, vous annulez les modifications avec la methode CanceiEdit, la version Current n'est pas 
modifiee et l'etat de la ligne est inchange. Dans tous les cas, apres I'appel d'une de ces deux methodes, la verification 
des contraintes est reactivee. 

L'exemple suivant permet la modification du code postal d'un client en verifiant que celui-ci est bien numerique : 



Imports System . Data . SqlClient 
Module TestModif icationLigne 

Dim cmd As SqlCommand 

Dim ctn As SqlConnection 

Dim codeClient As String 

Dim codePostal As String 

Dim paramCodeClient As SqlParameter 

Dim ds As DataSet 

Dim da As SqlDataAdapter 

Dim WithEvents table As DataTabie 

Public Sub main () 

ctn = New SqlConnection ( ) 

ctn . ConnectionString = "Data Source=localhost ; Initial Catalog= 
Northwind; Integrated Security=true" 
ctn . Open ( ) 

cmd = New SqlCommand 
cmd . Connection = ctn 

Console . Write (" saisir le code du client a modifier:") 
codeClient = Console . ReadLine ( ) 

cmd. CommandText = " SELECT * from Customers WHERE CustomerlD = @Code" 

paramCodeClient = New SqlParameter (" @Code " , codeClient) 

paramCodeClient . Direction = ParameterDirection . Input 

cmd . Parameters . Add (paramCodeClient ) 

ds = New DataSet 

da = New SqlDataAdapter ( cmd) 
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da. Fill (ds, "Clients") 
table = ds . Tables ( "Clients" ) 
table . Rows ( 0 ) . BeginEdit ( ) 

Console . Write (" saisir le nouveau code postal du client:") 

codePostal = Console . ReadLine ( ) 

table .Rows (0) ("PostalCode") = codePostal 

table . Rows ( 0 ) . EndEdit ( ) 

Console . WriteLine (" le nouveau code postal est : {0}", 
table .Rows (0) ("PostalCode")) 
Console . ReadLine ( ) 
End Sub 



Private Sub table_ColumnChanged (ByVal sender As Object, ByVal e 
As System . Data . DataColumnChangeEventArgs ) Handles table . ColumnChanged 
If e . Column . ColumnName = "PostalCode" Then 
If Not IsNumeric (e . ProposedValue) Then 

e . Row . CancelEdit ( ) 
End If 
End If 
End Sub 
End Module 



h. Suppression de donnees 

Deux solutions differentes sont disponibles. Vous pouvez effacer une ligne ou supprimer une ligne. La nuance est 
subtile entre ces deux solutions : 

La suppression d'une donnee se fait avec la methode Remove qui retire definitivement la DataRow de la collection Rows 
de la DataTabie. Cette suppression est definitive. 

La methode Deleted ne fait que marquer la ligne pour la supprimer ulterieurement. L'etat de la ligne passe a Deleted 
et ce n'est qu'au moment de la validation des modifications que la ligne est reellement supprimee de la collection 
Rows de la DataTabie. Si les modifications sont annulees, la ligne reste dans la collection Rows. 

La methode Remove est une methode de la collection Rows (elle agit directement sur son contenu), la methode Delete 
est une methode de la classe DataRow (elle ne fait que changer une propriete de la ligne). 



* efface la ligne 
table . Rows ( 1 ) .Delete () 

x supprime la ligne 

table . Rows . Remove (table . Rows ( 1 ) ) 



i. Valider ou annuler les modifications 



Jusqu'a present, les modifications effectuees sur une ligne sont temporaires, il est encore possible de revenir a la 
version precedente, ou au contraire de valider de fagon definitive les modifications dans les lignes (mais encore dans 
la base). Les methodes Acceptchanges ou Re jectchanges permettent respectivement la validation ou I'annulation des 
modifications. Elles peuvent s'appliquer sur une DataRow individuelle, une DataTabie ou un DataSet entier. Lorsque la 
methode Acceptchanges est executee, les actions suivantes sont realisees : 

• La methode EndEdit est appelee implicitement pour la ligne. 

• Si l'etat de la ligne etait Added ou Modified, il devient unchanged et la version current est recopiee dans la 
version Originale. 

• Si l'etat de la ligne etait Deleted, alors la ligne est supprimee. 
La methode Re jectchanges execute les actions suivantes : 

• La methode CancelEdit est appelee implicitement pour la ligne. 

• Si l'etat de la ligne etait Deleted ou Modified, il revient a unchanged et la version original est recopiee dans 

la version Current. 
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• Si I'etat de la ligne etait Added, alors elle est supprimee. 

S'il existe des contraintes de cle etrangere, Taction de la methode Acceptchanges ou Re jectchanges est propagee aux 
lignes enfants en fonction de la propriete AcceptRe jectRuie de la contrainte. 

j. Filtrer et trier des donnees 

II est frequent d'avoir besoin de limiter la quantite de donnees visibles dans une DataTabie ou encore de modifier 
I'ordre des lignes. La premiere solution qui vient a Tesprit est de recreer une requete SQL avec une restriction ou une 
clause orderby. C'est oublier que nous sommes dans un mode de fonctionnement deconnecte et qu'il est souhaitable 
de limiter les acces a la base, voire pire, que la base n'est pas disponible. Nous devons done n'utiliser que les 
donnees disponibles, en faisant attention a ne pas en perdre. La classeDataview va nous etre tres utile pour 
solutionner nos problemes. Cette classe va nous servir a modifier la vision des donnees dans la DataTabie sans 
risque pour les donnees elles-memes. II peut y avoir plusieurs Dataview pour une meme DataTabie, elles 
correspondent a des points de vue differents de la DataTabie. Pratiquement toutes les operations realisables sur une 
DataTabie le sont aussi par I'intermediaire d'une Dataview. 

Deux solutions sont disponibles pour obtenir une Dataview : 

• Creer une instance par Tun des constructeurs. 

• Utiliser I'instance, par defaut, fournie par la propriete Defauitview. 

Le premier constructeur utilisable attend simplement comme parametre la DataTabie a partir de laquelle est generee 
la Dataview. Dans ce cas, il n'y a aucun filtre ni aucun tri d'effectue sur les donnees visibles par la Dataview. Un 
resultat equivalent est obtenu en utilisant la proprieteDefauitview d'une DataTabie. 

Le deuxieme constructeur permet de specifier un filtre, un ordre de tri et la version des lignes concernees. Pour etre 
visibles dans la Dataview, les lignes devront correspondre a tous ces criteres. Les differents criteres peuvent aussi 
etre modifies par trois proprietes. 

RowFilter 

Cette propriete accepte une chaine de caracteres representant la condition devant etre remplie pour qu'une ligne soit 
visible. Cette condition a une syntaxe tout a fait similaire aux conditions d'une clause where. Les operateurs And et or 
peuvent egalement etre utilises pour associer plusieurs conditions. 

L'exemple suivant affiche le nom des clients commerciaux ou directeurs de vente en France : 



Imports System . Data . SqlClient 
Module TestDataView 

Dim cmd As SqlCommand 

Dim ctn As SqlConnection 

Dim ds As DataSet 

Dim da As SqlDataAdapter 

Dim table As DataTabie 

Dim ligne As DataRowView 

Public Sub main ( ) 

ctn = New SqlConnection ( ) 

ctn . ConnectionString = "Data Source=localhost ; Initial 
Catalog=Northwind; Integrated Security=true " 
ctn . Open ( ) 

cmd = New SqlCommand 
cmd . Connection = ctn 

cmd. CommandText = " SELECT * from Customers" 

ds = New DataSet 

da = New SqlDataAdapter ( cmd) 

da. Fill (ds, "Clients") 

table = ds .Tables ("Clients") 

table . DefaultView . RowFilter = "Country='France' and ( contactTitle= 
A Sales Agent' or contactTitle=' Sales Manager' ) " 
For Each ligne In table . DefaultView 

Console . WriteLine ( "nom : {0}", ligne ( "ContactName ") ) 

Next 
End Sub 
End Module 
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Q Un filtre peut etre annule en affectant une chaine vide a la propriete RowFiiter. 



Sort 

Cette propriete accepte, elle aussi, une chaine de caracteres representant le ou les criteres utilises pour le tri. La 
syntaxe est equivalente a celle de la clause order by. 

L'exemple suivant affiche les clients tries par pays puis par nom, pour un meme pays : 

A on annule le filtre precedent 

table .DefaultView. RowFiiter = "" 

x toutes les lignes sont maintenant visibles 

* on ajoute un critere de tri 

table . DefaultView. Sort = "Country ASC, ContactName ASC" 
For Each ligne In table . DefaultView 

Console .WriteLine ( "Pays : {0}" & vbTab & vbTab & " nom : {1}", ligne ( "Country ") , 
ligne ("ContactName") ) 
Next 

RowStateFilter 

Cette propriete determine I'etat des lignes et quelle version de la ligne est visible dans la Dataview. Huit possibilites 
sont disponibles : 

Current Rows 

Presente la version current de toutes les lignes ajoutees, modifiees ou inchangees. 
Added 

Presente la version current de toutes les lignes ajoutees. 
Deleted 

Presente la version original de toutes les lignes effacees. 
ModifiedCurrent 

Presente la version current de toutes les lignes modifiees. 
ModifiedOriginal 

Presente la version original de toutes les lignes modifiees. 
None 

Aucune ligne. 
OriginalRows 

Presente la version original de toutes les lignes modifiees, supprimees ou inchangees. 
Unchanged 

Presente la version current de toutes les lignes inchangees. 

L'exemple suivant supprime deux lignes et les affiche par I'intermediaire d'un filtre : 

A on supprime deux lignes 

table . Rows ( 2 ) .Delete () 

table . Rows ( 5 ) .Delete () 

x on annule<+>le filtre 

table . DefaultView. RowFiiter = "" 

A on affiche la version original des lignes supprimees 
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table . DefaultView . RowStateFilter = DataViewRowState . Deleted 
For Each ligne In table . DefaultView 

Console .WriteLine ( "Pays : {0}" & vbTab & vbTab & " nom : {1}", ligne ( "Country ") , 
ligne ( "ContactName " ) ) 
Next 



k. Rechercher des donnees 

La recherche peut s'effectuer avec les deux methodes Find et FindRows. Pour que ces deux methodes fonctionnent, il 
est imperatif d'avoir au prealable trie les donnees avec la propriete sort. 

Find 

Cette methode retourne I'index de la premiere ligne correspondant au critere de recherche. Si aucune ligne n'est 
trouvee, cette methode retourne -1. El le attend comme parametre la valeur recherchee. Cette valeur est recherchee 
dans le champ utilise comme critere de tri. Si le critere de tri est compose de plusieurs champs, il faut passer a la 
methode Find un tableau d'objets contenant les valeurs recherchees pour chaque champ du critere de tri dans I'ordre 
d'apparition dans la propriete sort. 

Cette methode est souvent utilisee pour rechercher une ligne a partir de la cle primaire. 



Imports System . Data . SqlClient 
Module TestFind 

Dim cmd As SqlCommand 

Dim ctn As SqlConnection 

Dim ds As DataSet 

Dim da As SqlDataAdapter 

Dim table As DataTable 

Dim ligne As DataRowView 

Dim codeClient As String 

Dim index As Integer 

Public Sub main () 

ctn = New SqlConnection ( ) 

ctn . ConnectionString = "Data Source=localhost ; Initial 
Catalog=Northwind; Integrated Security=true" 
ctn . Open ( ) 

cmd = New SqlCommand 
cmd . Connection = ctn 

cmd. CommandText = " SELECT * from Customers" 

ds = New DataSet 

da = New SqlDataAdapter ( cmd) 

da. Fill (ds, "Clients") 

table = ds . Tables ( "Clients" ) 

Console . Write (" saisir le code client : ") 

codeClient = Console . ReadLine ( ) 

table . DefaultView. Sort = "CustomerlD ASC" 

index = table . DefaultView . Find ( codeClient ) 

If index = -1 Then 

Console . WriteLine (" il n'y a pas de client avec ce code") 

Else 

Console . WriteLine (" le code {0} correspond au client {1}", 
codeClient, table . DefaultView ( index) ("ContactName")) 
End If 

Console . ReadLine ( ) 
End Sub 
End Module 



FindRows 

Cette methode recherche toutes les lignes correspondant au critere de recherche et retourne ces lignes sous forme 
d'un tableau de DataRowView. 

Le code suivant recherche tous les clients d'un pays et d'une ville donnes : 

Imports System . Data . SqlClient 
Module TestFindRows 

Dim cmd As SqlCommand 
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Dim ctn As SqlConnection 

Dim ds As DataSet 

Dim da As SqlDataAdapter 

Dim table As DataTable 

Dim ligne As DataRowView 

Dim pays, ville As String 

Dim lignesTrouvees ( ) As DataRowView 

Dim criteres () As Object 

Public Sub main ( ) 

ctn = New SqlConnection ( ) 

ctn . ConnectionString = "Data Source=localhost ; Initial 
Catalog=Northwind; Integrated Security=true " 
ctn . Open ( ) 

cmd = New SqlCommand 
cmd . Connection = ctn 

cmd. CommandText = " SELECT * from Customers" 

ds = New DataSet 

da = New SqlDataAdapter ( cmd) 

da. Fill (ds, "Clients") 

table = ds . Tables ( "Clients" ) 

Console . Write (" saisir le Pays : ") 

pays = Console . ReadLine ( ) 

Console . Write (" saisir la ville: ") 

ville = Console . ReadLine ( ) 

table .DefaultView. Sort = "Country ASC,City ASC" 
criteres = (New Object () {pays, ville}) 
lignesTrouvees = table . DefaultView . FindRows (criteres ) 
If lignesTrouvees . Length = 0 Then 

Console . WriteLine (" il n'y a pas de client correspondant " ) 

Else 

Console . WriteLine (" les clients suivants correspondent ") 
For Each ligne In lignesTrouvees 

Console . WriteLine ( "Norn :{0}", ligne ( "ContactName" ) ) 

Next 
End If 

Console . ReadLine ( ) 
End Sub 
End Module 



4. Mettre a jour la base de donnees 

Tout le travail effectue sur les donnees avec les methodes vues precedemment est irremediablement perdu a la 
fermeture de I'application, si nous ne prenons pas soin de sauvegarder les donnees. 

Dans la majorite des cas, les donnees proviennent d'une base de donnees, il faut done la mettre a jour avec les 
modifications contenues dans un DataSet, une DataTable ou une DataRow. Le DataAdapter a ete utilise pour remplir le 
DataSet, e'est egalement a lui que Ton va faire appel pour mettre a jour la base de donnees. 

Comme la methode Fill, la methode update va utiliser des instructions SQL pour le dialogue avec la base de donnees. 
En fonction des besoins, elle utilisera I'instruction contenue dans la commande insertcommand, updateCommand ou 
DeieteCommand. Si la methode update a besoin d'une commande et qu'elle n'est pas disponible, alors une exception est 
generee. La methode Fill parcourt les lignes de la DataTable qu'elle doit mettre a jour et, en fonction de I'etat de la 

ligne (Added, Deleted, Modified), appelle la commande InsertCommand, DeieteCommand, UpdateCommand. L'ordre dans 

lequel les mises a jour sont effectuees dans la base, peut avoir de I'importance. Pour controler l'ordre d'execution des 
insertions, modifications et suppressions, vous pouvez proceder en trois etapes, en ne proposant a la methode update 
qu'un jeu restreint de lignes a mettre a jour. Vous pouvez, par exemple, ne selectionner que les lignes effacees et 
demander la mise a jour de la base avec cet ensemble de lignes puis proceder de meme avec les lignes modifiees et 
les lignes ajoutees. 

La methode select permet d'obtenir un tableau de DataRow correspondant a un critere specifique. C'est ce tableau de 
DataRow qui est passe comme parametre a la methode update. 

L'exemple suivant realise les suppressions, les modifications puis les ajouts dans la base de donnees. 



Dim lignes () As DataRow 

A recupere les lignes supprimees et demande la mise a jour de la base 
lignes = table . Select (Nothing, Nothing, DataViewRowState . Deleted) 
da. Update (table) 
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A recupere les lignes modifiees et demande la mise a jour de la base 
lignes = table . Select (Nothing, Nothing, DataViewRowState . Modif iedCurrent ) 
da. Update (table) 

A recupere les lignes ajoutees et demande la mise a jour de la base 
lignes = table . Select (Nothing, Nothing, DataViewRowState . Added) 
da. Update (table) 



CS Cet exemple suppose bien sur que les commandes insertcommand, DeieteCommand, updateCommand soient definies 
au prealable. 



a. Generation automatique de commandes 

Les commandes chargees de la mise a jour de la base peuvent etre generees automatiquement par un objet 

sqicommandBuiider. Pour fonctionner correctement, le sqicommandBuiider a quelques exigences : 

• La propriete seiectcommand doit etre definie pour le DataAdapter car c'est a partir de cette instruction SQL qu'il 
va generer les instructions insert, update, delete. 

• La cle primaire doit etre disponible dans la DataTabie. 

• Les donnees ne doivent pas provenir d'une jointure entre plusieurs tables. 

Si une ou plusieurs de ces exigences ne sont pas respectees, il y a declenchement d'une exception lors de la 
generation des commandes. 

Les commandes sont generees en respectant les criteres suivants : 
InsertCommand 

Insere une ligne dans la base pour toutes les lignes dont I'etat est Added. Tous les champs, hormis les champs 
identite, expression ou TimeStamp sont mis a jour. 

UpdateCommand 

Met a jour dans la base toutes les lignes dont I'etat est Modified. Tous les champs sont mis a jour sauf les champs 
identite, expression ou TimeStamp. La ligne a mettre a jour est recherchee dans la base, par la cle primaire, mais il 
faut egalement que les valeurs des autres champs dans la base correspondent a la version original du champ dans 

la DataRow. 

DeieteCommand 

Efface de la base toutes les lignes dont I'etat est Deleted. II faut egalement que les valeurs presentes dans la base 
correspondent a la version original des champs dans la DataRow. Les commandes generees sont disponibles via les 

methodes GetlnsertCommand, GetUpdateCommand, GetDeleteCommand. 

L'exemple suivant affiche les instructions SQL des trois commandes generees automatiquement pour la table 
Customers : 



Imports System . Data . SqlClient 
Module TestOrdreMAJBase 

Dim cmd As SqlCommand 

Dim ctn As SqlConnection 

Dim ds As DataSet 

Dim da As SqlDataAdapter 

Dim table As DataTabie 

Dim ligne As DataRowView 

Dim codeClient As String 

Dim index As Integer 

Dim bldr As SqicommandBuiider 

Public Sub main ( ) 

ctn = New SqlConnection ( ) 

ctn . ConnectionString = "Data Source=localhost ; Initial 
Catalog=Northwind; Integrated Security=true " 
ctn . Open ( ) 

cmd = New SqlCommand 
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cmd . Connection = ctn 

cmd. CommandText = " SELECT * from Customers" 

ds = New DataSet 

da = New SqlDataAdapter ( cmd) 

da. Fill (ds, "Clients") 

table = ds . Tables ( "Clients" ) 

bldr = New SqlCommandBuilder (da) 

Console . WriteLine (" Instruction SQL de UpadteCommand : {0}", 
bldr . GetUpdateCommand . CommandText ) 

Console . WriteLine (" Instruction SQL de InsertCommand : {0}", 
bldr . Get InsertCommand . CommandText ) 

Console . WriteLine (" Instruction SQL de DeleteCommand : {0}", 
bldr . Get DeleteCommand . CommandText ) 

End Sub 
End Module 



Ce code affiche les informations suivantes : 



Instruction SQL de UpadteCommand : UPDATE [Customers] SET [CustomerlD] = @pl, 
[CompanyName ] = @p2, [ContactName ] = @p3, [ContactTitle ] = @p4, [Address] = @p5, 
[City] = @p6, [Region] = @p7, [PostalCode] = @p8, [Country] = @p9, [Phone] = 
@pl0, [Fax] = @pll WHERE (([CustomerlD] = @pl2) AND ([CompanyName] = @pl3) AND 
((@pl4 = 1 AND [ContactName] IS NULL) OR ([ContactName] = @pl5) ) AND ( (@pl6 = 
1 AND [ContactTitle] IS NULL) OR ([ContactTitle] = @pl7) ) AND ( (@pl8 = 1 AND 
[Address] IS NULL) OR ([Address] = @pl9) ) AND ( (@p20 = 1 AND [City] IS NULL) OR 
([City] = @p21)) AND ((@p22 = 1 AND [Region] IS NULL) OR ([Region] = @p23) ) 
AND ((@p24 = 1 AND [PostalCode] IS NULL) OR ([PostalCode] = @p25) ) 
AND ((@p26 = 1 AND [Country] IS NULL) OR ([Country] = @p27)) AND ((@p28 = 1 AND 
[Phone] IS NULL) OR ([Phone] = @p29) ) AND ((@p30 = 1 AND [Fax] IS NULL) OR 
( [Fax] = @p31) ) ) 

Instruction SQL de InsertCommand : INSERT INTO [Customers] ([CustomerlD], 
[CompanyName], [ContactName], [ContactTitle], [Address], [City], [Region], 
[PostalCode], [Country], [Phone], [Fax]) VALUES (@pl, @p2, @p3, @p4, @p5, @p6, 
@p7, @p8, @p9, @pl0, @pll) 

Instruction SQL de DeleteCommand : DELETE FROM [Customers] WHERE 
(([CustomerlD] = @pl) AND ([CompanyName] = @p2) AND ( (@p3 = 1 AND [ContactName] 
IS NULL) OR ([ContactName] = @p4) ) AND ( (@p5 = 1 AND [ContactTitle] IS NULL) OR 
([ContactTitle] = @p6) ) AND ( (@p7 = 1 AND [Address] IS NULL) OR ([Address] = 
@p8)) AND ((@p9 = 1 AND [City] IS NULL) OR ([City] = @pl0) ) AND ((@pll = 1 AND 
[Region] IS NULL) OR ([Region] = @pl2) ) AND ( (@pl3 = 1 AND [PostalCode] 
IS NULL) OR ([PostalCode] = @pl4)) AND ( (@pl5 = 1 AND [Country] IS NULL) 
OR ([Country] = @pl6) ) AND ( (@pl7 = 1 AND [Phone] IS NULL) OR ([Phone] = 
@pl8)) AND ((@pl9 = 1 AND [Fax] IS NULL) OR ([Fax] = @p20) ) ) 



Le moins que Ton puisse dire, c'est que ce code n'est pas tres parlant ! 

Rassurez-vous dans le paragraphe sur les acces concurrents, nous allons eclaircir la presence de ces innombrables 
parametres dans ces trois instructions SQL. L'important, pour le moment, est que ces instructions realisent 
correctement la mise a jour de la base de donnees. 

Nous allons le verifier en realisant un ajout, une modification et une suppression dans la table Customers sur des 
clients Frangais. Regardons I'etat de la table avant d'effectuer nos modifications. 
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Executons ensuite le code ci-dessous : 
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Imports System . Data . SqlClient 
Module TestMAJBase 

Dim cmd As SqlCommand 

Dim ctn As SqlConnection 

Dim ds As DataSet 

Dim da As SqlDataAdapter 

Dim table As DataTable 

Dim ligne As DataRow 

Dim bldr As SqlCommandBuilder 

Public Sub main ( ) 

ctn = New SqlConnection ( ) 

ctn . ConnectionString = "Data Source=localhost ; Initial 
Catalog=Northwind; Integrated Security=true " 
ctn . Open ( ) 

cmd = New SqlCommand 
cmd . Connection = ctn 

cmd . CommandText = " SELECT * from Customers where country='France' " 

ds = New DataSet 

da = New SqlDataAdapter ( cmd) 

da. Fill (ds, "Clients") 

table = ds . Tables ( "Clients" ) 

'efface Frederique Citeaux 

table . Rows ( 7 ) .Delete () 

A change adresse Carine Schmitt 

table . Rows ( 4 ) ("Address") = "9 rue Benjamin Franklin" 

A ajout d' un nouveau client 

ligne = table. NewRow 

ligne ( "CustomerlD" ) = "ENIEC" 

ligne ( "CompanyName " ) = "Eni Ecole Inf ormatique " 
ligne ( "ContactName " ) = "Marcel dupond" 
ligne ( "ContactTitle" ) = "Directeur" 
ligne ( "Address " ) = "24 rue Crebilon" 
ligne ( "Country " ) = "France" 
ligne (_City" ) ="Nantes" 
table . Rows .Add (ligne) 
bldr = New SqlCommandBuilder (da) 
da. Update (table) 
End Sub 
End Module 



Comparons le contenu actuel avec le contenu precedent de la table Customers, pour verifier que les modifications ont 
bien ete prises en compte. 
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b. Utilisation de commandes personnalisees 

L'utilisation de commandes personnalisees permet de choisir le type d'action effectue lors de la mise a jour de la base 
de donnees. Par exemple, I'effacement d'une ligne peut se traduire par I'affectation d'une valeur particuliere a un 
champ de I'enregistrement. Dans ce cas, 1'instruction SQL executee dans la DeieteCommand sera une instruction 
update plutot qu'une instruction delete. 

Par exemple, le code suivant cree une commande personnalisee pour la suppression : 
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delCmd = New SqlCommand 
delCmd . Connection = ctn 

delCmd . CommandText = " UPDATE Customers set Archive=l where CustomerID=@num" 
codeClient = New SqlParameter ( " @num" , SqlDbType . NChar , 5, ParameterDirection . 
Input, False, Nothing, Nothing, "CustomerlD " , DataRowVersion . Current , Nothing) 
delCmd . Parameters . Add ( codeClient ) 
da . DeleteCommand = delCmd 
bldr = New SqlCommandBuilder (da) 



CS Les commandes personnalisees sont compatibles avec les commandes generees automatiquement par le 

V SqlCommandBuilder puisque Celui-Ci ne genere une COmmande que Si la propriete InsertCommand, DeleteCommand 

ou updateCommand est egale a nothing dans le DataAdapter. Si une commande existe, elle n'est pas remplacee par 

le SqlCommandBuilder. 



c. Gestion des acces concurrents 

Dans un environnement multiutilisateurs, deux techniques existent pour la gestion des mises a jour : le verrouillage 
optimiste et le verrouillage pessimiste. 

Le verrouillage pessimiste est le plus contraignant pour les utilisateurs puisque, pour eviter les conflits lors des 
modifications de la base, des qu'un utilisateur souhaite modifier un enregistrement, celui-ci est verrouille dans la 
base. Tant que la modification de I'enregistrement n'est pas terminee, le verrou reste actif, bloquant ainsi I'acces des 
autres utilisateurs. L'optique de cette solution est d'eviter I'apparition de conflits. 

Le verrouillage optimiste n'est pas reellement un verrouillage puisque les enregistrements sont pratiquement 
disponibles en permanence. C'est au moment de la mise a jour qu'un test est effectue, pour verifier si les donnees 
presentes dans la base sont identiques aux donnees utilisees pour remplir le DataSet. Si les donnees sont 
differentes, c'est qu'un autre utilisateur les a modifiees entre le remplissage du DataSet et la demande de mise a jour 
de la base. II convient alors de prendre une decision concernant les mises a jour. 

Trois solutions sont envisageables : 

• On abandonne les mises a jour. 

• On ecrase la version existante. 

• On demande a I'utilisateur ce qu'il souhaite. 

Cette solution peut etre mise en ceuvre avec deux techniques courantes. 

La premiere est d'utiliser, dans la table, un champ de type TimeStamp. La particularity de ce type de champ est 
d'avoir une valeur changeant automatiquement a chaque modification effectuee sur I'enregistrement. II suffit done 
d'effectuer une comparaison de la valeur presente dans la base avec la valeur presente dans I'application. S'il y a une 
difference, c'est que la base a ete modifiee depuis le chargement du DataSet. 

Pour que cette solution soit envisageable, il faut que la base de donnees soit capable de gerer ce type de champ. 
Cette solution augmente aussi le volume des donnees puisque, par exemple pour SQL Server, ce type de champ 
utilise huit octets. 

La deuxieme solution est de gerer cela au niveau de I'application, en conservant les donnees originales et en les 
comparant avec les donnees presentes dans la base au moment de la mise a jour. C'est cette solution qui est utilisee 
dans les commandes generees automatiquement par I'objetsqicommandBuiider. 

Analysons le code d'une requete de modification generee par cet objet. 



UPDATE [Customers] SET [CustomerlD] = @pl, [CompanyName ] = @p2, [ContactName] = 
@p3, [ContactTitle] = @p4, [Address] = @p5, [City] = @p6, [Region] = @p7, 
[PostalCode] = @p8, [Country] = @p9, [Phone] = @plO, [Fax] = @pll WHERE 
(([CustomerlD] = @pl2) AND ([CompanyName] = @pl3) AND ( (@pl4 = 1 AND 
[ContactName] IS NULL) OR ([ContactName] = @pl5) ) AND ( (@pl6 = 1 AND 
[ContactTitle] IS NULL) OR ([ContactTitle] = @pl7)) AND ( (@pl8 = 1 AND 
[Address] IS NULL) OR ([Address] = @pl9) ) AND ( (@p20 = 1 AND [City] IS NULL) OR 
([City] = @p21)) AND ((@p22 = 1 AND [Region] IS NULL) OR ([Region] = 
@p23) ) AND ((@p24 = 1AND [PostalCode] IS NULL) OR ([PostalCode] = 
@p25) ) AND ((@p26 = 1 AND [Country] IS NULL) OR ([Country] = 

@p27)) AND ((@p28 = 1 AND [Phone] IS NULL) OR<+> ( [Phone ] = @p29)) AND ((@p30 = 1 
AND [Fax] IS NULL) OR ([Fax] = @p31) ) ) 
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Cette commande utilise un nombre impressionnant de parametres : trente et un en fait. Essayons d'expliquer le role 
de chacun de ces parametres. 

Les parametres de @pl a @pll sont utilises pour specifier les nouvelles valeurs de I'enregistrement. 

Le parametre @pl2 est utilise pour identifier I'enregistrement a mettre a jour en effectuant un test sur la cle primaire. 

Les autres parametres ne sont la que pour la gestion du verrouillage optimiste. Pour chaque champ, on verifie que 
les donnees presentes dans la base sont identiques aux donnees du DataSet. Pour les champs n'autorisant pas les 
valeurs nulles, la verification est tres simple. C'est le cas du champ companyName qui est compare avec le parametre 
@pl3. 

Pour les champs autorisant les valeurs nulles, il faut utiliser une petite astuce. En effet, il est seulement possible de 
verifier qu'un champ est nul ou pas dans la base, mais il ne peut pas y avoir de comparaison avec la valeur Null. Pour 
pallier cette limitation, les parametres @pl4,@pl6,@pl8,@p20,@p22 @p24,@p26,@p28,@p30 sont utilises pour 
representer la valeur Null pour un champ dans le DataSet. Si leur valeur est egale a 1, c'est que le champ est egal a 
Null dans le DataSet. Le test sur la valeur de ces parametres est done combine avec I'operateur And pour verifier la 
nullite simultanee du champ correspondant dans la base. Lors de l'execution de la commande, les parametres sont 
remplaces par les valeurs presentes dans le DataSet. En fonction du parametre, des versions differentes de la ligne 
sont utilisees. 

Pour les parametres @pl a @pll, les versions Current sont utilisees. Ce sont les donnees que Ton veut transferer 
dans la base de donnees. Pour les autres parametres, ce sont les versions original des parametres qui sont 
utilisees. 

La version de la ligne a utiliser est determinee au moment de la creation du parametre, avant son ajout dans la 
collection Parameters. Pour cela, le constructeur suivant est utilise : 



Public Sub New (parameterName As String, dbType As SqlDbType, , size As Integer, 
direction As ParameterDirection, isNullable As Boolean, precision As Byte, 
scaleAs Byte, sourceColumn As String, sourceVersion As DataRowVersion, value As 
Object ) 



II permet d'associer automatiquement une version d'un champ particulier a un parametre. C'est le role des arguments 
sourceColumn et sourceVersion. L'execution de la commande renvoie le nombre d'enregistrements reellement mis a 
jour. Si la commande ne peut pas mettre a jour les champs, alors la valeur renvoyee par l'execution de la commande 
est egale a zero. Dans ce cas, il y a declenchement d'une exception : 



Ida . Update [ tab le ) I 



L'ewception DBConcurrencyEHception n'a pas ete geree 



Violation de 1'acces concurrentiel : UpdateCommand a af facte 0 des enregistrements 1 attendus. 
Conseils de depannage : 




Incluez une logique dans votre application afin de gerer les violations de I'acces concurrentiel. 
Obtenir une aide d'ordre general pour cette exception. 



Rechercher de I'aide en ligne complementaire, . . 



Actions : 

Afficher les details,.. 

Copier le detail de I'exception dans le Presse-papiers 




Une solution moins brutale permet de surveiller les mises a jour au fur et a mesure de l'execution des instructions 
SQL. II faut pour cela gerer I'evenement RowUpdated du DataAdapter qui est declenche apres I'appel de chaque 
insertcommand, DeieteCommand, UpdateCommand. Le parametre de type RowUpdatedEventArgs permet de savoir par la 
propriete RecordsAf fected combien d'enregistrements ont ete mis a jour. 

Si aucun enregistrement n'a ete mis a jour, vous pouvez choisir Taction a entreprendre en modifiant la propriete 
status avec I'une des valeurs de Tenumeration updatestatus : 

Continue 



La mise a jour se poursuit comme si rien ne s'etait passe. 



ErrorsOccurred 



Une exception va etre declenchee. 
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SkipAIIRemainingRows 

Arret de la mise a jour des lignes restantes. 
SkipCurrentRow 

Arret de la mise a jour de la ligne courante. La mise a jour continue avec les lignes 

Le type d'action a entreprendre doit, en principe, etre laisse a I'appreciation de 
suivant : 



Private Sub da_RowUpdated (ByVal sender As Object, ByVal e As System. Data. 
SqlClient . SqlRowUpdatedEventArgs ) Handles da . RowUpdated 
Dim reponse As Integer 
If e . RecordsAf f ected = 0 Then 

Console . WriteLine ( "Une erreur s'est produite lors 
de la mise a jour de la base de donnees") 

Console . WriteLine ( "vous souhaitez :") 
Console . WriteLine (" 1 - continuer les mises a jour") 
Console . WriteLine (" 2 - annuler les mises a jour") 
Console . WriteLine (" 3 - annuler la mise a jour de cette ligne mais 
continuer pour les autres lignes") 

reponse = Console . ReadLine ( ) 
Select Case reponse 
Case 1 

e. Status = UpdateStatus . Continue 
Case 2 

e. Status = UpdateStatus . SkipAIIRemainingRows 
Case 3 

e. Status = UpdateStatus . SkipCurrentRow 
End Select 
End If 
End Sub 



5. Les transactions 

Les transactions permettent de regrouper dans une entite, un ensemble de commandes SQL. Ce regroupement va 
garantir que, si Tune des instructions contenues dans la transaction echoue, la base de donnees pourra retrouver son 
etat initial. L'exemple classique est le virement d'un compte bancaire a un autre. Imaginez que vous ayez, dans votre 
base de donnees, une table pour les comptes des particuliers et une table pour les comptes des entreprises. 

Le transfert d'un compte entreprise vers un compte particulier (le paiement de votre salaire) pourrait s'effectuer avec 
les instructions suivantes : 



Imports System. Data . SqlClient 
Module TestTransaction 

Dim cmdPart, cmdEnt As SqlCommand 

Dim ctn As SqlConnection 

Dim numParticulier , numEntreprise, montantPart, montantEnt As SqlParameter 

Public Sub main () 

ctn = New SqlClient . SqlConnection ( ) 

ctn . ConnectionString = "Data Source=localhost ; Initial 
Catalog=Northwind; Integrated Security=true " 
ctn . Open ( ) 

cmdEnt = New SqlClient . SqlCommand 
cmdEnt . Connection = ctn 

cmdEnt . CommandText = "Update ComptesEntreprise set solde= 
solde-@montant where numCompte=@numCompte " 

numEntreprise = New SqlParameter (" @numCompte " , SqlDbType . Int ) 

numEntreprise . Value = 1234 

cmdEnt . Parameters . Add (numEntreprise ) 

montantEnt = New SqlParameter (" @montant " , SqlDbType . Decimal ) 

montantEnt . Value = 3000 

cmdEnt . Parameters . Add (montantEnt ) 

cmdEnt . ExecuteNonQuery ( ) 

cmdPart = New SqlClient . SqlCommand 



restantes. 

rutilisateur comme dans l'exemple 
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cmdPart . Connection = ctn 

cmdPart . CommandText = "Update ComptesParticulier set solde= 
solde+@montant where numCompte=@numCompte " 

numParticulier = New SqlParameter ( " @numCompte " , SqlDbType . Int ) 

numParticulier . Value = 5678 

cmdPart . Parameters . Add (numParticulier) 

montantPart = New SqlParameter (" @montant " , SqlDbType . Decimal) 
montantPart . Value = 3000 
cmdPart . Parameters . Add (montantPart ) 
cmdPart . ExecuteNonQuery ( ) 
ctn . Close ( ) 
End Sub 

End Module 



Que se passe-t-il, si pendant I'execution de ce code le serveur de base de donnees devient indisponible a cause d'un 
probleme reseau par exemple ? L 'operation de debit peut avoir ete effectuee alors que I'operation de credit n'a pas pu 
s'executer correctement. II risque done d'y avoir un gros probleme dans le fonctionnement de I'application (et pour le 
paiement de votre salaire). Les transactions vont permettre de resoudre ce probleme, en regroupant I'execution 
destructions SQL pour garantir qu'elles seront toutes executees ou qu'aucune ne sera executee. 

Les transactions sont gerees au niveau de la connexion, e'est done elle qui va nous permettre de demarrer une 
transaction. La methode BeginTransaction nous retourne une instance de la classe sqiTransaction. Pour chaque 
execution de compiande, nous pouvons alors indiquer si I'execution doit se passer dans le contexte de la transaction 
ou a I'exterieur. A la fin du traitement, nous pouvons valider toutes les instructions confiees a la transaction ou au 
contraire les annuler toutes. La methode commit valide la transaction alors que la methode RoiiBack I'annule. 

Pour securiser le code precedent, nous pourrions utiliser la version suivante : 



Imports System. Data . SqlClient 
Module TestTransaction 

Dim cmdPart, cmdEnt As SqlCommand 

Dim ctn As SqlConnection 

Dim numParticulier, numEntreprise, montantPart, montantEnt As SqlParameter 
Dim trans As SqiTransaction 
Public Sub main () 

ctn = New SqlClient . SqlConnection ( ) 

ctn . ConnectionString = "Data Source=localhost ; Initial 
Catalog=Northwind; Integrated Security=true " 
ctn . Open ( ) 

trans = ctn . BeginTransaction 
Try 

cmdEnt = New SqlClient . SqlCommand 
cmdEnt . Connection = ctn 

cmdEnt . CommandText = "Update ComptesEntreprise set solde=solde- 
@montant where numCompte=@numCompte " 

numEntreprise = New SqlParameter (" @numCompte" , SqlDbType . Int ) 

numEntreprise . Value = 1234 

cmdEnt . Parameters . Add (numEntreprise ) 

montantEnt = New SqlParameter (" @montant " , SqlDbType . Decimal ) 

montantEnt . Value = 3000 

cmdEnt . Parameters . Add (montantEnt ) 

A place I'execution de la commande dans la transaction 

cmdEnt . Transaction = trans 

cmdEnt . ExecuteNonQuery ( ) 

cmdPart = New SqlClient . SqlCommand 

cmdPart . Connection = ctn 

cmdPart . CommandText = "Update ComptesParticuliers set solde=solde+ 
@montant where numCompte=@numCompte " 

numParticulier = New SqlParameter (" @numCompte " , SqlDbType . Int ) 

numParticulier . Value = 5678 

cmdPart .Parameters . Add (numParticulier) 

montantPart = New SqlParameter (" @montant " , SqlDbType . Decimal ) 
montantPart . Value = 3000 
cmdPart .Parameters . Add (montantPart ) 
cmdPart . Transaction = trans 
cmdPart . ExecuteNonQuery ( ) 
trans . Commit ( ) 
Catch ex As Exception 
trans . Rollback ( ) 
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Console . WriteLine ( "toutes les operations ont ete annulees") 
End Try 
ctn . Close ( ) 
End Sub 
End Module 



CS Si la connexion est interrompue, I'instruction RoiiBack ou commit ne pourra pas etre acheminee vers le serveur. 

Dans ce cas, le serveur prend I'initiative d'executer un RoiiBack sur toutes les transactions en cours, si la 
connexion avec le client est perdue. 
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Presentation de LINQ 



Apres de nombreuses annees devolution les langages objets sont devenus incontournables dans les developpements 
informatiques. Parallelement les systemes de stockage ont egalement evolues principalement sur deux axes : les bases 
de donnees et les fichiers XML. La cohabitation entre concepts objets et donnees se fait tant bien que mal par I'ajout aux 
langages objets de quelques capacites pour dialoguer avec les donnees. Cette solution n'est pas entierement 
satisfaisante car elle presente les inconvenients suivants : 

• Le langage utilise pour manipuler les donnees est tres souvent specifique a un type de source de donnees. 

• Les mots cles de ce langage sont inconnus du langage de programmation qui les considere comme de simples 
chaines de caracteres done pas de verification syntaxique avant I'execution. 

• Le changement de type de source de donnees entraine de lourdes modifications du code et une nouvelle periode 
d'apprentissage pour le developpeur. 

• Les types de donnees sont parfois incompatibles entre le langage de programmation et la source de donnees. II 
faut dans ce cas realiser des conversions souvent gourmandes en temps et meme parfois dangereuses. 

Avec LINQ tout ceci va devenir que des mauvais souvenirs. Mais que se cache-t-il derriere ces quatre lettres : Language 
Integrated Query ou Langage de requete integre ? II s'agit done d'un langage de requete permettant Interrogation de 
sources de donnees. Mais qu'a-t-il de plus que ce brave SQL ? La cle du mystere se situe dans le terme 'integre'. En effet 
contrairement a d'autres methodes utilisees pour interroger des sources de donnees (SQL, XPATH...), LINQ fait partie du 
langage dans lequel I'application est developpee (VB, C#...). Un autre point tres important concernant LINQ reside dans la 
syntaxe meme du langage. Celle-ci sera identique quel que soit le type de source de donnees interrogee : tableau, 
collection, base de donnees, fichier XML, dataset... Le dernier point important de cette presentation de LINQ concerne les 
donnees manipulees. Votre application est developpee avec un langage objet et bien LINQ lui aussi manipule des objets. 
II n'y a done pas besoin de realiser manuellement les operations de conversion. Si elles sont necessaires, elles seront 
realisees automatiquement par LINQ. Apres ce bref apergu, regardons maintenant la syntaxe de LINQ. 



© ENI Editions - All rigths reserved 



- 1 - 



Syntaxe du langage LINQ 



Avant de detail ler la syntaxe de LINQ, nous allons etudier un premier exemple tres simple. Dans les exemples de ce 
paragraphe, nous utiliserons comme source de donnees deux listes remplies avec des instances des classes du 
diagramme ci-apres. 



Client 

m Fields 
3 Properties 

lescomrnsndes As List(of commande) 
'^T norm As String 
telephone As 5tfino 

a Methods 

1 A 



r 



-adrcsseFacturc 



"3* LftCltCf* 



8 FieMs 

./ _oodsPo5tal As 5trhg 
jveA& String 
j/ile- As String 

S Properties 

2S 1 codePostal As Strrg 
jliT 1 r>je fts 5trmg 
vils As String 



aaVessaLivrason 



A 



J 



LanirviancEc 

a Fiekte 
^ .ad-esseUvr-^son as Adf esse 
^ _oodBCcmrnanda As Integer 
6* _dateCflimar«fe As Date 
./ JaCljert As Cfant 
_/ JigrieCuriYibjrLiJe' a? LigneComrrendeD 
jMrt As Decimal 
S Properties 

o«Je£jomrnanda As Magar 

•t dsteCflrr/irtande as Date 
port As Decimal 



Les donnees utilisees pour creer ces instances de classe sont extraites de la base de donnees Northwind. Elles sont 
placees dans un fichier texte qui est ensuite lu par le code pour recreer les instances de classe en memoire. Voici I'extrait 
de code permettant de realiser ces operations. 



Dim listeCommandes As List (Of Commande) 
Dim listeClients As List (Of Client) 
Sub Main ( ) 

listeCommandes = New List (Of Commande) 

listeClients = New List (Of Client) 

Dim co As Commande 

Dim cl As Client 

Dim f As 10 . StreamReader 

Dim ligne As String 

Dim col As String () 

Dim nom As String = "" 

f = New 10. StreamReader ("c: \data.txt", 10 . FileMode . Open) 
Do 

ligne = f.ReadLine 

If Not IsNothing (ligne) Then 

col = ligne . Split (New Char() {vbTab}) 

If nom <> col(O) Then 
nom = col ( 0 ) 

cl = New Client () With {.nom = col(O), . adresseFacture = 
New Adresse With {.rue = col(l), . ville = col (2), .codePostal = col (3)}, 
.telephone = col (4)} 

listeClients. Add ( cl ) 

End If 

co = New Commande () With { . codeCommande = col (5), . dateCommande = 
col (6), .port = col (7), . adresseLivraison = New Adresse With {.rue = col (8), 
.ville = col(O), .codePostal = col (10)}} 

listeCommandes .Add (co) 

co.LeClient = cl 
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cl . LesCommandes . Add (co) 
End If 

Loop Until ligne Is Nothing 
f .Close () 
End Sub 



Dans les exemples qui suivent, nous supposerons que cette portion de code a deja ete executee pour remplir les deux 
listes. Cette ebauche de projet est disponible en telechargement sur le site de I'editeur. 



1. Premieres requetes LINQ 

Une requete LINQ est constitute de trois actions : 

• I'obtention des donnees ; 

• la creation de la requete elle-meme ; 

• I'execution de la requete. 

La premiere etape est tres simple puisque pour pouvoir etre utilisee comme source de donnees, une classe doit 
simplement implementer I'interface generique iEnumerabie (T) . C'est le cas de nombreuses classes du Framework .NET 
qui sont done directement utilisables dans des requetes LINQ. 

Pour les sources de donnees n'implementant pas cette interface, comme par exemple un document XML, des classes 
utilitaires permettent de les rendre compatibles avec LINQ. 

Le plus gros du travail est constitue par la deuxieme etape : la creation de la requete elle-meme. 

Dans la requete, nous allons indiquer quelles informations nous souhaitons obtenir de la source de donnees, comment 
elles seront triees, regroupees ou structurees. 

La requete contient trois clauses : 

• From : indiquant I'origine des donnees. 

• where : specifie la ou les conditions pour que les donnees soient comprises dans les valeurs retournees. 

• select : indique quelles sont les informations retournees a partir de la source de donnees. 
Voici done ci-dessous notre premiere requete LINQ. 



Dim requete = From unClient In listeClients 

Where unClient. nom Like "A*" 
Select unClient 



Generalement une requete LINQ est stockee dans une variable puis est executee ulterieurement. II est important de 
bien se souvenir que la variable contenant la requete n'execute aucune action et ne retourne aucune donnee. El le 
stocke simplement la definition de la requete. L'execution de la requete n'a lieu que lorsque Ton s'interesse aux 
donnees qu'elle retourne. C'est le cas dans I'exemple suivant ou nous parcourons les resultats dans une boucle For 

Each. 



For Each unClient In requete 

Console . WriteLine (unClient . nom) 

Next 



Ce mecanisme permet d'executer plusieurs fois la meme requete sans etre oblige de la redefinir a chaque execution. 

Cependant, dans certains cas, la variable contient le resultat de la requete et non la requete elle-meme. C'est le cas 
par exemple, lorsque qu'il y a un calcul d'agregat dans la requete. Dans I'exemple suivant, nous recherchons combien il 
y a de clients dont le nom commence par la lettre 'A'. Le resultat de la requete est dans ce cas un simple entier qui est 
calcule des la definition de la requete. 



Dim nbClients = (From unClient In listeClients 

Where unClient. nom Like "A 
Select unClient) .Count 

Console . WriteLine (nbClients) 
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Vous pouvez egalement utiliser plusieurs sources de donnees dans la clause From. Pour cela, le mot cle Join permet de 
combiner les donnees des differentes sources. L'exemple suivant recherche les clients dont le nom commence par un 'A' 
et pour chacun recupere la date de toutes les commandes. 



Dim requete3 =From unClient In listeClients _ 

Join uneCommande In listeCommandes _ 
On unClient. nom Equals uneCommande . LeClient . nom 
Where unClient. nom Like "A*" _ 
Select nomCli = unClient . nom, _ 
dateCde = uneCommande . dateCommande 

For Each r In requete3 

Console . WriteLine ( r . nomCli & " " & r.dateCde) 

Next 



Ce code merite un petit commentaire supplemental concernant la clauseseiect. Nous souhaitons obtenir le nom du 
client et la date des commandes soit une chaine de caracteres et une date. II est inutile d'utiliser une instance de la 
classe client et une instance de la classe commande pour simplement ces deux informations. Le compilateur genere 
done une classe anonyme pour ces deux informations avec une propriete nomcii et une propriete dateCde. Le type de 
la variable r utilisee dans la boucle For Each pour parcourir le resultat de la requete sera determine implicitement pour 
correspondre au type anonyme cree par le compilateur. 



2. Les operateurs de requete 

Les operateurs permettant la creation de requete LINQ peuvent etre classes en huit categories : 

• Tri de donnees 

• Operations sur des ensembles de donnees 

• Filtrage 

• Projection 

• Partitionnement 

• Jointures, regroupements 

• Quantificateurs 

• Agregation 

Pour ecrire des requetes LINQ efficaces, il convient de bien connaitre ces operateurs. Nous allons done les detailler 
avec de nombreux exemples. 

a. Tride donnees 

II tres facile d'obtenir les resultats d'une requete tries selon un ou plusieurs criteres. Grace a I'operateur order By, 
nous devons indiquer la propriete sur laquelle va etre realise le tri. La requete suivante trie les clients en fonction de 
leur nombre de commandes. 



Dim requeteTril = From unclient In listeClients _ 

Order By unclient . LesCommandes . Count 
Select unclient 
For Each unClient In requeteTril 

Console . WriteLine (unClient . nom & "nb commandes:" 
& unClient . LesCommandes . Count ) 
Next 



Par defaut le tri se fait par ordre croissant. Pour obtenir les meilleurs clients en debut de liste, il est preferable 
d'utiliser le mot cle Descendinga la suite du critere de tri. 
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Dim requeteTri2 = From unclient In listeClients _ 

Order By unclient . LesCommandes . Count Descending 
Select unclient 
For Each unClient In requeteTri2 

Console . WriteLine (unClient . nom & "nb commandes:" 
& unClient . LesCommandes . Count ) 
Next 



Plusieurs criteres de tri peuvent etre indiques pour lever les ambigu'i'tes lorsque deux proprieties ont la meme valeur. 
Les criteres de tri doivent etre separes par des virgules dans la requete. La requete trie les clients sur le nombre de 
commandes dans I'ordre decroissant puis sur le nom du client dans I'ordre croissant en cas d'egalite du nombre de 
commandes. 



Dim requeteTri3 = From unclient In listeClients _ 

Order By unclient . LesCommandes . Count Descending, 

unclient. nom Ascending _ 

Select unclient 
For Each unClient In requeteTri3 

Console . WriteLine (unClient . nom & "nb commandes:" 
& unClient . LesCommandes . Count ) 
Next 



b. Operations sur des ensembles de donnees 

Le seul operateur disponible dans cette categorie permet I'elimination des doublons lors de la recherche 
d'informations. Le mot cleDistinct place a la fin de la clause select indique que les doublons seront elimines. 
L'ensemble des elements de la clause select est pris en compte pour I'elimination des doublons. La requete suivante 
determine les differentes villes ou nous avons des clients. Si nous avons plusieurs clients dans la meme ville, celle-ci 
ne sera listee qu'une seule fois. 



Dim requeteEnsemble = From unclient In listeClients _ 

Order By unclient . adresseFacture . ville _ 
Select unclient . adresseFacture . ville Distinct 
For Each ville In requeteEnsemble 
Console .WriteLine (ville) 

Next 



c. Filtrage de donnees 

Le filtrage consiste a reduire le nombre d'elements retournes par la requete. Une ou plusieurs expressions sont 
ajoutees a la requete a I'aide de la clausewhere. Elles doivent fournir un booleen lors de revaluation de la requete. 
Les operateurs de comparaison standard de Visual Basic peuvent etre utilises a I'interieur de I'expression. L'utilisation 
de chaines de caracteres dans une clause where merite une petite precision. Bien que Ton puisse utiliser I'operateur 
pour un critere de filtrage portant sur une chaine de caracteres, l'utilisation de la methode Equals offre beaucoup 
plus de fonctionnalites. En effet, avec I'operateur '=' il doit y avoir une stricte egalite avec une distinction entre 
minuscules et majuscules pendant le test. La methode Equals est plus souple puisque elle permet d'indiquer 
comment doit se faire la comparaison et eventuellement ignorer la distinction entre minuscules et majuscules comme 
dans I'exemple ci-dessous. 



Dim requeteFiltrage = From unclient In listeClients 
Where unclient . adresseFacture .ville . Equals ( "nantes " , 
StringComparison . Ordinal I gnoreCase) _ 
Select unclient 

For Each unclient In requeteFiltrage 
Console . WriteLine (unclient . nom) 

Next 



d. Projections 

Une operation de projection correspond a la transformation d'un objet en une nouvelle forme. Cette nouvelle forme 
est constitute par l'ensemble des proprietes de I'objet specifie dans la clause select. En utilisant la projection, on 
peut automatiquement creer un nouveau type qui est construit a partir de chaque objet. Vous pouvez projeter une 
propriete directement ou bien executer une fonction prenant comme parametre la propriete. C'est dans ce cas le 
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resultat de la fonction qui est utilise comme valeur pour la propriete de I'objet cree. Vous pouvez aussi projeter I'objet 
original sans le modifier. 



Dim requetePro jection = From unclient In listeClients 
Select nomCli = unclient . nom. ToUpper, villeCli = 
unclient . adresseFacture . ville . ToLower 

For Each r In requetePro jection 

Console . WriteLine (r . nomCli & " " & r. villeCli) 

Next 



Les projections sont egalement realisables en indiquant plusieurs clausesFrom dans la requete. Dans ce cas, le 
resultat de la requete fait correspondre chaque objet de chacune des sources de donnees avec tous les objets des 
autres sources. 



Dim requetePro jectionl = From unclient In listeClients _ 

From unCommande In listeCommandes _ 
Select cli = unclient, cmd = unCommande 
For Each r In requetePro jectionl 

Console . WriteLine ( r . cli . nom & " " & r . cmd . dateCommande) 

Next 



Ce genre d'operation conduit tres rapidement a une explosion combinatoire. En effet, le nombre d'objets dans le 
resultat de la requete est egal au produit des nombres d'objets dans chacune des sources de donnees. Un filtrage 
permettant de restreindre le nombre d'objets dans le resultat est en general souhaitable avec ce type de projection. 



Dim requetePro jection2 = From unclient In listeClients _ 

From unCommande In listeCommandes _ 
Where unclient . Equals (unCommande . LeClient ) 
Select cli = unclient, cmd = unCommande 
For Each r In requetePro jection2 

Console . WriteLine ( r . cli . nom & " " & r . cmd. dateCommande) 

Next 



e. Partitionnement 

Le partitionnement consiste a decouper en deux parties un ensemble de donnees et a retourner une des deux 
parties. La limite du decoupage peut etre absolue, et dans ce cas exprimee en nombre d'objets, ou conditionnelle. 
Deux clauses sont utilisees pour le partitionnement : 

• skipindique que Ton souhaite obtenir la deuxieme partie de la liste (en fait on 'saute' les objets places au 
debut) ; 

• Takeindique que Ton souhaite obtenir le debut de la liste sans tenir compte des enregistrements de la fin de 
liste. 

Voyons comment utiliser ces deux operateurs avec la syntaxe absolue et la syntaxe conditionnelle. 

La requete suivante permet d'obtenir la liste des dix plus mauvais clients (en se basant sur le nombre de 
commandes). 

Dim requetePartition = From unclient In listeClients _ 

Order By unclient . LesCommandes . Count _ 
Skip listeClients . Count - 10 _ 
Select unclient 
For Each unclient In requetePartition 
Console . WriteLine (unclient . nom) 

Next 



Pour illustrer la syntaxe conditionnelle, nous recherchons maintenant tous les clients ayant un nombre de commandes 
inferieur ou egal a 5. 



Dim requetePartitionl = From unclient In listeClients _ 

Order By unclient . LesCommandes . Count Descending 
Skip While unclient . LesCommandes . Count > 5 _ 
Select unclient 

For Each unclient In requetePartitionl 
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Console . WriteLine (unclient . nom & " " & unclient . LesCommandes . Count ) 

Next 



Pour recompenser nos clients fideles, recherchons maintenant les dix meilleurs d'entre eux. 



Dim requetePartition2 = From unclient In listeClients _ 

Order By unclient . LesCommandes . Count Descending 
Take 10 _ 
Select unclient 
For Each unclient In requetePartition2 
Console . WriteLine (unclient . nom) 

Next 



Et enfin recherchons les clients ayant passes au moins dix commandes. 



Dim requetePartition3 = From unclient In listeClients _ 

Order By unclient . LesCommandes . Count Descending _ 
Take While unclient . LesCommandes . Count >= 10 _ 
Select unclient 

For Each unclient In requetePartition3 

Console . WriteLine (unclient . nom & " " & unclient . LesCommandes . Count ) 

Next 



f. Jointures et regroupements 

La jointure de deux sources de donnees correspond a I'association d'une des sources de donnees avec les objets de 
I'autre source de donnees ayant une propriete commune. En programmation objet, les jointures permettent de 
remplacer des associations incompletes. Dans I'exemple que nous utilisons depuis le debut de ce chapitre, la classe 
client contient une propriete permettant d'obtenir la liste des commandes d'un client (LesCommandes) et la classe 
commande contient un attribut permettant de referencer le client ayant passe la commande (LeClient). L'association est 
done, dans notre cas, bidirectionnelle. Si par economie ou par oubli, la propriete LesCommandes de la classe client 
n'existe pas, il faut dans ce cas parcourir la liste des commandes et tester chacune d'elles pour trouver toutes les 
commandes d'un client precis. C'est ce travail que realise la jointure. La requete suivante obtient les commandes de 
chaque client. 



Dim requeteJoin = From unclient In listeClients _ 

Join uneCommande In listeCommandes On unclient Equals uneCommande . LeClient 
Select unclient, uneCommande 
For Each r In requeteJoin 

Console . WriteLine ( r . unclient . nom & " " & r . uneCommande . dateCommande) 

Next 



Pour chaque commande les informations concernant le client sont repetees. Une solution plus efficace consiste a 
executer la requete pour qu'elle ajoute a chaque client la liste de ses commandes. La clause Group Join permet de 
realiser ce regroupement. II est egalement necessaire dans ce cas de specifier avec la clauseinto, le nom de la 
propriete utilisee pour acceder au regroupement, dans notre cas la liste des commandes du client. A noter pour nous 
que cette propriete fera doublon avec celle que nous avons deja prevue dans notre classe client. 



Dim requeteGroup Join = From unclient In listeClients _ 

Group Join uneCommande In listeCommandes On unclient Equals uneCommande . LeClient 
Into CommandesDuClient = Group _ 
Select unclient, CommandesDuClient 
For Each r In requeteGroup Join 

Console . WriteLine ( r . unclient . nom) 
For Each c In r . CommandesDuClient 

Console . WriteLine (vbTab & c . dateCommande ) 

Next 

Next 



Un regroupement peut egalement etre realise sans pour autant faire de jointure entre deux sources de donnees. 
Nous pouvons, par exemple, rechercher pour chaque ville la liste des clients y residant. Pour cela, la clause Group By 
into est ideale. II suffit simplement d'indiquer que nous souhaitons regrouper les clients avec comme cle de 
regroupement leur ville de residence et indiquer le nom de la propriete qui sera generee pour contenir le 
regroupement. La requete genere alors, lors de son execution, une liste d'instances de classes contenant deux 
proprietes : 

• Le nom de la ville. 
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• La liste des clients par I'intermediaire de la propriete indiquee dans la requete. 



Dim requeteGroup = From unclient In listeClients _ 

Group unclient By unclient . adresseFacture . ville 
Into Client sParVille = Group _ 
Select ville, Client sParVille 
For Each r In requeteGroup 

Console . WriteLine ( r . ville ) 

For Each c In r . ClientsParVille 

Console . WriteLine (vbTab & c.nom) 

Next 

Next 



g. Quantificateurs 

Les quantificateurs sont utilises pour controler si dans une liste au moins un element remplit une condition ou si tous 
les elements remplissent une condition. lis fournissent le resultat du controle sous forme d'un booleen qui en general 
est utilise dans une clausewhere. Comme exemple, nous recherchons les clients dont toutes les commandes ont ete 
passees en 2007. 



Dim requeteQuantif ier = From unclient In listeClients 
Where (Aggregate cmd In unclient . LesCommandes Into All 
(cmd. dateCommande . Year = 2007)) _ 

Select unclient 
For Each unclient In requeteQuantif ier 
Console . WriteLine (unclient . nom) 
For Each c In unclient . LesCommandes 

Console . WriteLine (vbTab & c . dateCommande) 

Next 

Next 



La deuxieme version permet de rechercher les clients ayant passe au moins une commande en 2008. 



Dim requeteQuantif ierl = From unclient In listeClients _ 
Where (Aggregate cmd In unclient . LesCommandes Into Any 
(cmd. dateCommande . Year = 2 0 08)) _ 

Select unclient 
For Each unclient In requeteQuantif ierl 
Console . WriteLine (unclient . nom) 
For Each c In unclient . LesCommandes 

Console . WriteLine (vbTab & c . dateCommande) 

Next 

Next 



h. Agregations 

Les operations d'agregation sont utilisees pour le calcul d'une valeur unique a partir de valeurs contenues dans une 
liste d'elements. Les operations les plus courantes sont : 

• le calcul de moyenne ; 

• la recherche d'un maximum ; 

• la recherche d'un minimum ; 

• le calcul d'un total. 

L'exemple suivant applique ces quatre operateurs sur les frais de port de toutes les commandes. 



Dim moyennePort = Aggregate unCommande In listeCommandes Into 
Average (unCommande . port ) 

Console . WriteLine ( "moyenne des frais de port : " & moyennePort) 
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Dim maxiPort = Aggregate unCommande In listeCommandes Into 

Max (unCommande . port ) 

Console . WriteLine ( "maximum des frais de port : " & maxiPort) 
Dim miniPort = Aggregate unCommande In listeCommandes Into 

Min (unCommande . port ) 

Console . WriteLine ( "minimum des frais de port : " & miniPort) 
Dim totalPort = Aggregate unCommande In listeCommandes Into 

Sum (unCommande . port ) 

Console . WriteLine ( "total des frais de port : " & totalPort) 



Ce code est egalement un bon exemple de requete executee immediatement, puisque pour obtenir le resultat, la liste 
doit obligatoirement etre parcourue du premier au dernier element. 

Apres avoir etudie la syntaxe du langage, nous allons voir maintenant comment I'utiliser en association avec une 
base de donnees. 
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LINQ vers SQL 



Comme nous I'avons vu dans les paragraphes precedents le domaine de predilection de LINQ est le monde des objets. II 
sait parfaitement manipuler les listes, les objets et les proprietes de ces objets. Pourtant ces elements presentent un 
grave handicap : ils disparaissent inexorablement des la fin de I'application. La solution la plus couramment utilisee pour 
pallier ce probleme consiste a confier a une base de donnees le soin d'assurer la persistance des informations apres 
I'arret de I'application. Le langage SQL est le plus couramment utilise pour le dialogue avec une base de donnees. Bien 
que les principaux mots des soient identiques les syntaxes de ces deux langages ne sont pas compatibles. Les requetes 
LINQ sont done automatiquement transformers en leurs homologues SQL pour realiser les traitements. Un autre 
probleme doit egalement etre pris en compte. Jusqu'a present nous avons manipule, par I'intermediaire des requetes 
LINQ, des objets et rien que des objets. Le concept objet etant parfaitement etranger a une base de donnees il faut 
trouver une solution pour que LINQ puisse acceder aux informations. La cle de I'enigme consiste tout simplement a creer 
des classes pour representer dans I'application les donnees presentes dans la base de donnees. Cette technique est 
egalement appelee mappage objet relationnel. Ce doit etre la premiere etape dans I'utilisation de LINQ avec une base 
de donnees. Nous allons done regarder comment creer ces classes. 



1. Le mappage objet relationnel 

II existe trois solutions pour generer les classes representant les informations stockees dans la base de donnees. 

• Creer les classes manuellement comme n'importe laquelle des classes de votre application en utilisant un 

editeur de code. Cette solution est extremement fastidieuse et n'est en general utilisee que pour les 
modifications minimes de classes existantes. 

• Utiliser I'outil en ligne de commande SQLMetal. 

• Utiliser le concepteur Objet/Relationnel en mode graphique. 



a. SQLMetal 

Cet outil est disponible a partir d'une fenetre de commande de I'environnement Visual Studio. Les options indiquees 
sur la ligne de commande permettent de configurer le fonctionnement. Les options disponibles concernent : 

• La generation a partir d'une base de donnees du code source des classes et des attributs de mappage. 

• La generation a partir d'une base de donnees d'un fichier intermediate de mappage (.dbml). 

• La generation a partir d'un fichier de mappage des classes et des attributs de mappage. 

Chaque option doit etre precedee par un caractere V et suivie par le caractere * :' et de la valeur de I'option si besoin. 
Les options de connexion : 
/server: <nom du serveur> 

Indique le nom ou I'adresse IP du serveur de base de donnees. 
/database: <nom de la base de donnees> 

Indique le nom de la base de donnees a partir de laquelle la generation doit etre effectuee. 
/user: <nom de connexion> 

Indique le compte utilisateur avec lequel la connexion vers la base de donnees sera ouverte. Si cette option n'est pas 
specifiee, e'est I'authentification Windows qui sera utilisee. 

/password: <mot de passe> 

Indique le mot de passe associe au compte utilise pour etablir la connexion, 
/conn: <cha?ne de connexion> 



© ENI Editions - All rigths reserved 



- 1 - 



Peut etre utilisee a la place des quatre options precedentes pour fournir les informations concernant la connexion 
vers le serveur de base de donnees. 

timeout: <secondes> 

Indique la duree maximum pendant laquelle SqIMetal tente d'etablir la connexion vers la base de donnees. Une 
valeur egale a zero indique une duree illimitee. 

Les options de sortie : 
/dbml :<nom du fichier> 

Genere un fichier de mappage. 

/code :<nom du fichier> 

Genere le code source des classes dans le fichier indique. 

Les options de generation : 
/language :< vb ou csharp> 

Indique le langage dans lequel le code sera genere. Les deux options valides sont vb pour Visual Basic et csharp 
pour C#. 

/namespace :<nom> 

Indique I'espace de nom dans lequel les classes seront generees. Par defaut, il n'y a pas d'espace de nom. 
/context :<nom> 

Specifie le nom du data context genere. Par defaut, ce nom est deduit du nom de la base de donnees. 
/entity base :<nom> 

Specifie la classe de base des classes generees. Par defaut, les classes generees n'ont pas de classe de base. 

Enfin la derniere information a fournir correspond au nom du fichier de mappage a partir duquel la generation des 
classes sera realisee. Cette information est inutile si la generation est executee directement depuis la base de 
donnees. 

Voici quelques utilisations les plus courantes de cet outil. 

Generation en Visual Basic des classes de la base Northwind situee sur I'ordinateur local : 

SqIMetal / server : localhost /database : northwind /language :vb / code : nw. vb 

Le code genere etant trop volumineux pour le lister ici (environ 3500 lignes), voici simplement ci-apres le diagramme 
des classes qui ont ete generees. 



- 2- 
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Nous avons la classe Northwind qui herite de la classe DataContext et qui va tres rapidement nous servir pour que 
LINQ puisse dialoguer avec la base de donnees. Nous avons egalement une classe generee pour chacune des tables 
de la base de donnees. Ce sont des instances de ces classes que nous manipulerons dans I'application. 

Generation du fichier de mappage de la base Northwind situee sur I'ordinateur local : 



SqlMetal /server : localhost /database : northwind /dbml : nw . dbml 



Cette commande genere un fichier xml dont voici un extrait : 



<Table Name="dbo . Customers " Member=" Customers "> 
<Type Name="Customers "> 

<Column Name=" Customer ID" Type=" System . String" DbType="NChar ( 5 ) NOT NULL" 
IsPrimaryKey="true" CanBeNull=" false " /> 

<Column Name="CompanyName " Type=" System . String" DbType="NVarChar ( 40 ) 
NOT NULL" CanBeNull="false" /> 

<Column Name=' 
CanBeNull="true" /> 

<Column Name= 
CanBeNull="true" /> 

<Column Name=' 
CanBeNull="true" /> 

<Column Name= 
CanBeNull="true" /> 

<Column Name=' 
CanBeNull="true" /> 

<Column Name= 
CanBeNull="true" /> 

<Column Name=' 
CanBeNull="true" /> 

<Column Name= 
CanBeNull="true" /> 

<Column Name=' 
CanBeNull="true" /> 

<Association Name="FK_CustomerCustomerDemo_Customers " Member= 
"CustomerCustomerDemo" Othe rKey=" Customer ID " Type="CustomerCustomerDemo" 
DeleteRule="NO ACTION" /> 

<Association Name="FK_Orders_Customers " Member="Orders " OtherKey= 
"CustomerlD" Type="Orders " DeleteRule="NO ACTION" /> 

</Type> 
</Table> 



'ContactName" Type=" System . String" DbType="NVarChar ( 30 ) " 
'ContactTitle" Type="System. String" DbType="NVarChar ( 30 ) " 
'Address" Type=" System . String" DbType="NVarChar ( 60 ) " 
'City" Type="System. String" DbType="NVarChar ( 15 ) " 
'Region" Type="System. String" DbType="NVarChar ( 15 ) " 
'PostalCode" Type=" System . String" DbType="NVarChar ( 1 0 ) " 
'Country" Type=" System . String" DbType="NVarChar ( 15 ) " 
'Phone" Type="System. String" DbType="NVarChar (24 ) " 
Fax" Type="System. String" DbType="NVarChar ( 24 ) " 



Ce fichier peut etre modifie pour, par exemple, changer le nom des classes et des proprietes associees aux 
informations en provenance de la base de donnees. Dans I'exemple ci-dessous, nous avons francise les noms. 



<Table Name="dbo . Customers " Member="Clients "> 
<Type Name="Clients"> 

<Column Name="CustomerID " Member="CodeClient " Storage="_CustomerID" 
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Type="System. String" DbType="NChar ( 5 ) NOT NULL" IsPrimaryKey="true" 
CanBeNull="false" /> 

<Column Name="CompanyName " Member="NomSociete " Storage="_CompanyName " 
Type="System. String" DbType="NVarChar ( 4 0 ) NOT NULL" CanBeNull=" false " /> 

<Column Name="ContactName " Member="NomContact " Storage="_ContactName " 
Type="System. String" DbType="NVarChar ( 30 ) " CanBeNull="true" /> 

<Column Name="ContactTitle" Member="Fonction" Storage="_ContactTitle " 
Type="System. String" DbType="NVarChar ( 30 ) " CanBeNull="true" /> 

<Column Name=" Address " Member="Adresse " Storage="_Address " 
Type="System. String" DbType="NVarChar ( 60 ) " CanBeNull="true" /> 

<Column Name="City" Member="Ville " Storage="_City " Type=" System . String" 
DbType="NVarChar (15) " CanBeNull="true " /> 

<Column Name="Region" Type="System. String" DbType="NVarChar ( 15 ) " 
CanBeNull="true" /> 

<Column Name="PostalCode" Member="CodePostal " Storage="_PostalCode " 
Type="System. String" DbType="NVarChar ( 1 0 ) " CanBeNull="true" /> 

<Column Name="Country " Member="Pays " Storage="_Country " 
Type="System. String" DbType="NVarChar ( 15) " CanBeNull="true" /> 

<Column Name="Phone" Member="Tel" Storage="_Phone " Type=" System . String" 
DbType="NVarChar (24) " CanBeNull="true " /> 

<Column Name="Fax" Type=" System . String" DbType="NVarChar ( 24 ) " 
CanBeNull="true" /> 

<Association Name="Clients_CustomerCustomerDemo" Member= 
"CustomerCustomerDemo" ThisKey="CodeClient " OtherKey=" Customer ID" 
Type="CustomerCustomerDemo" /> 

<Association Name="Client s_Orders " Member="Orders " ThisKey="CodeClient " 
OtherKey="CustomerID" Type="Orders " /> 
</Type> 
</Table> 



Dans cet exemple, pour pouvoir utiliser des noms de proprieties differents des noms de colonnes dans la base de 
donnees, nous avons ajoute I'attribut Member a chaque balise <Column> pour specifier le nom de la propriete et 
I'attribut storage pour indiquer le nom de la variable interne de la classe qui contiendra ['information. 

Nous pouvons maintenant generer le code a partir du fichier de mappage modifie avec la commande suivante. 

SqlMetal / code : nw. vb /language :vb nw.dbml 

II nous reste a visualiser la classe generee pour verifier que nos modifications ont bien ete prises en compte. 
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Clients 

Class 

□ Fields 

^ _Address 

# _City 

$t _CompanyName 

_ContactName 

Jf _ContactTitle 

i gf _Country 

•jft _CustomerCustornerDerno 

•Jt _CustomerID 

•J* _ Fax 

>jf? _Orders 

$ _Phone 

i/p _PostalCode 

t^t _Region 

^ emptyChangingEventArgs 

□ Properties 

Adresse 
CodeClient 
CodePostal 

CustomerCustomerDemo 
Fax 

Fonction 
NomContact 
NomSociete 
jjf 1 Orders 

Pays 
^ Region 

3* Ville 
H Methods 



! Events 



V 



Cet outil est tres facile a utiliser mais presente le petit inconvenient de ne pouvoir generer les classes que pour 
I'integralite d'une base de donnees. De plus, les eventuelles modifications sont a faire manuellement soit dans le 
code source genere soit dans le fichier de mappage intermediate. Pour la generation et la personnalisation de 
quelques classes, il est preferable d'utiliser le concepteur Objet/Relationnel integre a Visual Studio. 



b. Concepteur Objet/Relationnel 

Le concepteur Objet/Relationnel fournit une solution tres pratique pour creer le modele objet d'une application 
representant les informations disponibles dans une base de donnees. II permet egalement la creation de procedures 
et fonctions autorisant Tutilisation des procedures stockees et fonctions presentes dans la base de donnees. II 
comporte cependant quelques limitations : 

• seules les bases de donnees SQL Server 2000, SQL Server 2005, SQL Server Express sont supportees. 

• Le mappage n'est possible qu'entre une classe et une table. C'est-a-dire qu'il n'est pas possible de creer une 
classe pour representer le resultat d'une jointure entre plusieurs tables. 

• Le concepteur fonctionne en 'sens unique' car seules les modifications effectuees dans le concepteur sont 

repercutees dans le code genere. Si le code est modifie manuellement les modifications ne sont pas prises en 
compte dans le concepteur. Pire encore si des modifications sont faites dans le concepteur apres des 
modifications manuelles du code, ces modifications sont perdues lors de I'enregistrement du concepteur car 
dans ce cas le code est regenere automatiquement. La solution consiste a creer une classe partielle dans un 
fichier independant de celui manipule par le concepteur. 

Le concepteur Objet/Relationnel est lance automatiquement lors de I'ajout d'un element de type LINQ to SQL 
Classes. L'ajout a un projet d'un fichier .dbml provoque egalement I'ouverture de cet outil. A I'ouverture, la surface du 
concepteur est separee en deux parties. La zone de gauche va accueillir les classes associees aux tables alors que la 
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zone de droite va accueillir les procedures et fonctions associees aux procedures stockees. L'ensemble represente le 
DataContext genere. 
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Ajout de classes 

Vous pouvez creer les classes representant les tables d'une base de donnees en realisant un glisser-deplacer d'une 
ou de plusieurs tables a partir de I'explorateur de serveurs vers la partie gauche du concepteur. Le premier element 
ajoute au concepteur Objet/Relationnel est egalement utilise pour configurer les proprietes de connexion du 
DataContext. Si un autre element provenant d'une autre base de donnees est ajoute, une boite de dialogue vous 
demande alors si vous souhaitez remplacer la connexion existante. Si vous acceptez la modification les classes deja 
presentes dans le concepteur ne pourront bien sur plus etre utilisees. L'ajout d'une table genere le code necessaire 
pour que le DataContext initialise les proprietes d'une instance de la classe a partir des informations presentes dans 
une ligne de la base de donnees. II ajoute egalement le code necessaire pour que les modifications apportees aux 
proprietes de I'instance puissent etre repercutees dans la base de donnees. Le concepteur se base sur la structure 
de la table et sur la cle primaire pour effectuer les mises a jour. Vous pouvez egalement indiquer vous-meme 
comment seront effectuees les mises a jour. Pour cela, chaque classe possede trois proprietes Insert, Update, 
Delete. Par defaut, ces proprietes sont initialisers avec la valeur Use Runtime pour indiquer que le code charge des 
mises a jour est genere automatiquement. Pour modifier ce comportement vous pouvez assigner a ces proprietes des 
procedures stockees. Une boite de dialogue permet la configuration de ces proprietes. 
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Configurer le comportement 



Selectionnez une classe et un comportement. Puis, choisissez soit de laisser le systeme generer le code 
automatiquement au moment de 1'execution, soit de personnaliser a I'aide des methodes de mise a jour, 
d'insertion ou de suppression specifiques. 

Classe : 



Category 



Comportement: 



Mettre a jour 



v 



O Utiliser le runtime 

Laissez le systeme generer automatiquement la logique d'insertion, de mise a jour et de suppression au 
moment de I'execution. 

0 Personnaliser 



MajCategorie (categorielD As System. Int32, categoryName As System. String, description As System v 



Arguments de methode 


Proprietes de classe 


categorielD 


CategorylD (Current) 


categoryName 


CategoryName (Current) 


description 


Description (Current) 




OK 



Annuler 



App[iquer 



Apres la selection de la procedure stockee vous devez indiquer comment seront renseignes les parametres attendus 
en entree par la procedure stockee. Les valeurs disponibles correspondent aux differentes proprietes de la classe. 
Pour chaque propriete la version actuelle ou originale est disponible. 



Ajout d'associations 

Apres avoir depose plusieurs tables sur le concepteur il est ensuite possible de creer des associations entre certaines 
d'entre elles. Les associations sont tout a fait similaires aux relations entre tables dans une base de donnees. 
D'ailleurs s'il existe dans la base de donnees une relation de cle etrangere entre deux tables une association sera 
creee automatiquement lorsque ces deux tables sont deposees sur le concepteur. 

Pour ajouter manuellement une association vous devez passer par le menu contextuel du concepteur 
Objet/Relationnel. 





Ajouter ► 




Classe 




Masquer le volet Methodes 




Association 








Zoom ► 
Mettre en forme le diagramme 


.1. 


Heritage 






Coller 




m 


Afficher le code 






Selectionner tout 






Proprietes 





Une boite de dialogue vous propose alors de configurer la relation. Vous devez done choisir la classe parente et la 
classe enfant de la relation. La classe parente est la classe qui se trouve a I'extremite 'un' d'une relation un a 
plusieurs, la classe enfant represente I'extremite 'plusieurs' de la relation. Par exemple, dans I'association entre les 
classes Product et Category, la classe Category represente le cote 'un' de la relation et la classe Product le cote 
'plusieurs'. En effet un produit appartient a une categorie et une categorie contient plusieurs produits. Vous devez 
ensuite indiquer pour chacune des classes la ou les proprietes qui vont participer a la relation. II faut veiller a ce que 
les proprietes participant a I'association soit du meme type a chaque extremite de I'association. Apres la creation de 
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I'association, vous pouvez configurer certaines proprieties qui ne sont pas disponibles au moment de la creation. 



• cardinality : determine si I'association est de type un a plusieurs (one-to-many) ou de type un a un (one-to- 
one). 



• child Property : indique si une propriete doit etre creee dans la classe parente pour referencer les 

informations de la classe enfant. Le type de cette propriete est determine par le type de la classe enfant et la 
cardinalite. Si la cardinalite est un a un, la propriete est une simple reference vers une instance de la classe 
concernee. Si la cardinalite est un a plusieurs la propriete est une collection d'instances de la classe 
concernee. 



• Les proprietes Name permettent d'identifier les proprietes creees pour realiser I'association. 



Ajout de methodes 

Les procedures stockees et les fonctions peuvent etre ajoutees au concepteur Objet/Relationnel pour ensuite etre 
transformers en methodes du DataContext. L'appel de ces methodes provoquera I'execution de la procedure stockee 
ou de la fonction par le serveur de base de donnees. Si des parametres sont attendus en entree par la procedure 
stockee, ils devront etre fournis a la methode lors de son execution. L'ajout d'une methode au DataContext se realise 
tres simplement en effectuant un glisser-deplacer entre I'explorateur de serveurs et le concepteur Objet/Relationnel. 
II faut cependant etre attentif lorsque vous ajoutez une procedure stockee ou une fonction car Templacement ou 
aura lieu le deplacement determine le type de retour de la methode generee. Si I'element est deplace vers la zone de 
droite du concepteur, le type de retour sera genere automatiquement. 

Par contre, si I'element est deplace vers une classe existante du concepteur, le type de retour correspondra a cette 
classe a condition toutefois que I'information renvoyee par la procedure stockee soit compatible avec cette classe. 
Nous allons faire quelques manipulations avec la procedure stockee [Ten Most Expensive Products] dont voici le 
code : 



set ANSI_NULLS ON 

set QUOTED_IDENTIFIER ON 

go 



CREATE procedure [dbo] . [Ten Most Expensive Products] AS 
SET ROWCOUNT 10 

SELECT Product s . ProductName AS TenMostExpensiveProduct s , Products . UnitPrice 
FROM Products 

ORDER BY Products . UnitPrice DESC 



Cette procedure retourne le nom et le prix des dix produits les plus onereux. Si nous essayons d'ajouter cette 
procedure au DataContext en effectuant un glisser-deplacer sur la surface de la classe Product nous obtenons le 
message suivant. 



Mkrostffl VfeuaLSludi* 




3 
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En effet les elements renvoyes par la procedure stockee ne sont pas des produits mais simplement le nom et le prix 
du produit. 

Par contre, si nous realisons un glisser deplacer vers la zone de droite du concepteur, I'operation se realise sans 
probleme. La fonction suivante est ajoutee au DataContext. 



Public Function Ten_Most_Expensive_Product s ( ) As ISingleResult 
(Of Ten_Most_Expensive_Product sResult ) 



Dim result As IExecuteResult = Me . ExecuteMethodCall (Me, CType (Methodlnf o . 
GetCurrentMethod, Methodlnf o) ) 

Return CType (result . ReturnValue, ISingleResult (Of Ten_Most_Expensive_ 
Product sResult ) ) 
End Function 



Cette fonction ne retourne pas une liste de produits mais une liste de Ten_Most_Expensive_ProductsResuit qui 
correspond a une classe generee automatiquement en fonction des informations renvoyees par la procedure stockee 
dont voici la structure. 



- 8- 
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Affichage de classes 



- * X 




<Rechercher> 



B i^l testHeritageLinq 
S --^l testLinq 

E'Cj References 
□■■■{} testLinq 

Adresse 
Category 
Client 
S- < % Commande 

- Customer 
[j-^ LigneCommande 
■^1 Module 1 
■^4 Module2 
S : -tj My 
H--% NorthWind 
a - Order 

Order_Detail 
H-"% Product 
Produit 



+ 



Ten_Most_Expensive_ProductsResult! 



New.Q 

TenMostExpensiveProductsQ As String 
jff UnitPriceQ As Decimal? 
^ _TenMostExpensiveProducts 
_UnitPrice 



Pour que la classe Product puisse etre utilisee comme type de retour pour la fonction, nous sommes obliges de 
legerement modifier la procedure stockee pour qu'elle retourne des produits et non juste le nom et le prix du produit. 



set ANSI_NULLS ON 

set QUOTED_IDENTIFIER ON 

go 



ALTER procedure [dbo] . [Ten Most Expensive Products] AS 
SET ROWCOUNT 10 
SELECT * 
FROM Products 

ORDER BY Products . UnitPrice DESC 



Nous pouvons maintenant refaire la meme operation et obtenir la fonction suivante qui cette fois, retourne bien une 
liste de produits. 



Public Function Ten_Most_Expensive_Product s ( ) As ISingleResult (Of Product) 

Dim result As IExecuteResult = Me . ExecuteMethodCall (Me, CType (Methodlnf o . 

GetCurrentMethod, Methodlnf o) ) 

Return CType (result . ReturnValue, ISingleResult (Of Product)) 

End Function 



Heritage de classes 

Comme n'importe quelle classe, les classes generees par le Concepteur Objet/Relationnel peuvent utiliser I'heritage. 
Par contre, cote base de donnees, c'est une notion parfaitement inconnue. II faut avoir recours a quelques petites 
astuces pour simuler cette technique dans une base de donnees. La solution frequemment utilisee, consiste a creer 
une table unique qui contiendra a la fois les informations des objets de la classe de base et les informations de la 
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sous-classe. Une colonne supplementaire est ajoutee a la table et sert de discriminateur. En fonction de la valeur de 
cette colonne, il est facile de determiner si la ligne doit etre representee par une instance de la classe de base ou 
une instance de la sous-classe. Nous allons modifier la table Products pour pouvoir mettre cette technique en 
application. Nous ajoutons a la table une colonne nommee Perissable de type entier. Cette colonne va nous servir de 
discriminateur. Si la valeur qu'elle contient est egale a 1, il s'agit d'un produit non perissable. Si la valeur est egale a 
2, il s'agit d'un produit perissable. Dans ce cas la deuxieme colonne ajoutee, nommee DLC de type date, contient la 
date limite de consommation du produit. Pour les produits non perissable cette colonne ne contient aucune valeur 
(null). Modifiez les informations pour quelques produits afin qu'ils deviennent des produits perissables (Camembert 
Pierrot, Escargots de Bourgogne, Mascarpone Fabioli...). 

Maintenant que la base de donnees est prete, nous pouvons ajouter les classes au DataContext. La premiere etape 
consiste a ajouter la table constituant la classe de base. Puis ajoutez un deuxieme exemplaire de cette table et 
renommez la classe correspondante qui va devenir la classe derivee. Ajoutez ensuite a partir de la boite a outils une 
relation d'heritage entre les deux classes en la dessinant depuis la classe fille vers la classe parente. Dans chacune 
des classes, supprimez les proprietes inutiles. Par exemple, en ne conservant dans la classe derivee que la propriete 
DLC et en la supprimant dans la classe de base. Apres avoir selectionne la relation d'heritage sur le diagramme vous 
devez modifier ses proprietes. 



• indiquez par I'intermediaire de la proprieteDiscriminator Property, la propriete servant a faire la distinction 
entre une instance de la classe de base et une instance de la sous classe. 



• Configurez ensuite les proprietes Base Class Discriminator Value et Derived Class Discriminator 

vaiueavec les valeurs de la propriete configuree precedemment representant une instance de la classe de 
base et une instance de la sous classe. 



• La propriete inheritance Def auitindique quelle classe sera utilisee si le discriminateur contient une valeur 
inconnue. 



Nous obtenons les classes suivantes : 



Product 

Class 

0 Fields 
□ Properties 

^ CategorylD 
]=? Discontinued 
0=f Perissable 
3? ProductID 
"S? ProductName 
QuantityPerUnit 
ReorderLevel 
5upplierID 
UnitPrice 
UnitsInStock 
UnitsOnOrder 

0 Methods 
El Events 





ProduitPerissable 

Class 

H> Product 




H. Fields 


1 




□ Properties 




Iff DLC 




El Methods 

L J 



Maintenant que nos classes sont disponibles, regardons comment les utiliser par I'intermediaire de requetes LINQ. 



c. Utilisation de requetes LINQ vers SQL 



Les requetes LINQ pour SQL utilisent rigoureusement la meme syntaxe que celles que nous avons etudiees dans le 
paragraphe 2. La seule petite distinction provient des donnees qui dans ce cas, sont extraites de la base de donnees 
et transformers en instances de classes a partir des informations de mappage. Le dialogue avec la base de donnees 
est entierement pris en charge par le DataContext. II faut done creer une instance du DataContext et e'est par son 
intermediate que les donnees seront disponibles pour I'execution de la requete LINQ. Voici ci-dessous notre premiere 
requete LINQ vers la base de donnees. 



Dim dc As NorthWind 

dc = New NorthWind 

Dim requete = From unClient In dc. Customers 
Where unClient . ContactName Like "A*" 
Select unClient 



© ENI Editions - All rigths reserved 



For Each Client In requete 

Console . WriteLine (Client . Contact Name ) 

Next 



Dans ce code, la classe NorthWind correspond au DataContext et c'est done par son intermediate que les donnees 
sont disponibles pour la requete LINQ. Mais comment les donnees sont-elles selectionnees ? 

En fait la methode la plus naturelle pour obtenir des informations en provenance d'une base de donnees est de 
demander a celle-ci d'executer une requete SQL. C'est effectivement cette solution qui est utilisee par LINQ. Pour le 
verifier, nous pouvons demander au DataContext (NorthWind dans notre cas) d'afficher sur la console le code SQL 
qu'il genere automatiquement. Pour cela, il suffit simplement d'initialiser la propriete Log du DataContext en direction 
de la console avant la creation de la requete LINQ. 



Dim dc As NorthWind 

dc = New NorthWind 
dc . Log = Console . Out 

Dim requete = From unClient In dc. Customers 
Where unClient . ContactName Like "A*" 
Select unClient 

For Each Client In requete 

Console . WriteLine (Client . ContactName ) 

Next 



A I'execution, nous obtenons I'affichage suivant : 



SELECT [tO] . [CustomerlD] , [tO ] . [CompanyName ] , [tO ]. [ContactName] , 
[tO] . [ContactTitle] , [t 0 ]. [Address ] , [tO] . [City] , [tO ]. [Region] , 
[tO] . [PostalCode] , [t 0 ]. [Country ] , [tO ]. [Phone] , [tO] . [Fax] 
FROM [dbo] . [Customers] AS [tO] 
WHERE [tO] . [ContactName] LIKE @p0 

— @p0: Input NVarChar (Size = 2; Prec = 0; Scale = 0) [A%] 

— Context: SqlProvider (Sql2005) Model: AttributedMetaModel Build: 3.5.21022.8 

Ana Trujillo 
Antonio Moreno 
Ann Devon 
Aria Cruz 
Andre Fonseca 
Annette Roulet 
Alexander Feuer 
Alejandra Camino 
Art Braunschweiger 
Anabela Domingues 



Nous avons effectivement une requete SQL avec parametres qui est creee automatiquement par le DataContext. 
Cette requete n'est pas tres compliquee et elle aurait ete facilement ecrite en utilisant directement ADO.NET. 
Essayons d'executer une autre requete en reprenant la requete nous permettant d'obtenir les dates de commande 
de chacun des clients. 



Dim requeteGroup Join = From unclient In dc. Customers _ 

Group Join uneCommande In dc. Orders On unclient Equals uneCommande . Customer 
Into CommandesDuClient = Group _ 
Select unclient, CommandesDuClient 

For Each r In requeteGroup Join 

Console .WriteLine (r . unclient . ContactName) 
For Each c In r . CommandesDuClient 

Console . WriteLine (vbTab & c.OrderDate) 

Next 

Next 



Voici le code SQL genere pour I'execution de cette requete : 



SELECT [tO] . [CustomerlD] , [tO ]. [CompanyName] , [tO ]. [ContactName] , [t 0 ]. [Contact 
Title], [tO ]. [Address] , [tO] . [City] , [t 0 ]. [Region] , [tO ]. [PostalCode] , [tO].[Coun 
try], [tO] . [Phone] , [tO].[Fax], [ t 1 ] . [OrderlD ] , [tl ]. [CustomerlD] AS [CustomerlD 
2], [tl] . [EmployeelD] , [t 1 ] . [OrderDate ] , [t 1 ] . [RequiredDate ] , [ t 1 ] . [ ShippedDate ] 
, [tl] . [ShipVia] , [tl] . [Freight] , [tl ] . [ShipName] , [t 1 ] . [ ShipAddress ] , [tl].[Ship 
City] , [tl] . [ShipRegion] , [tl] . [ ShipPostalCode ] , [tl] . [ ShipCountry ] , ( 
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SELECT COUNT (*) 

FROM [dbo] . [Orders] AS [t2] 

WHERE [tO] . [CustomerlD] = [t2] . [CustomerlD] 
) AS [value] 
FROM [dbo] . [Customers] AS [tO] 

LEFT OUTER JOIN [dbo] . [Orders] AS [tl] ON [tO] . [CustomerlD] = [tl] . [CustomerlD] 
ORDER BY [tO ]. [CustomerlD] , [t 1 ] . [OrderlD ] 



Cela commence a serieusement se compliquer. L'ecriture d'une telle requete directement en SQL demanderait 
certainement une bonne maitrise de ce langage alors que la syntaxe LINQ demeure tres simple. C'est effectivement a 
ce niveau que reside la puissance de LINQ vers SQL. 

Cette facilite ne se limite pas a I'extraction d'informations depuis la base de donnees car LINQ vers SQL est 
egalement capable de gerer les mises a jour des informations vers la base de donnees. 



d. Mise a jour des donnees 



La mise a jour de la base de donnees se realise egalement tres simplement uniquement en manipulant des objets et 
sans ecrire la moindre ligne de SQL. 



Modification de donnees existantes 

La premiere etape consiste a obtenir les donnees que Ton souhaite modifier en executant une requete de selection 
ordinaire. Une fois que les donnees sont disponibles sous forme d'instances de classes, nous pouvons simplement 
modifier les proprietes de ces instances. Pour transferer les modifications dans la base de donnees, il suffit 
simplement de demander au DataContext de propager les modifications vers la base de donnees. Nous allons tester 
cette technique en faisant demenager nos clients Nantais vers Saint Herblain. 



Dim clientsNantais = From unclient In dc . Customers 

Where unclient . City = "Nantes" 
Select unclient 



For Each unclient In clientsNantais 
unclient . City = "Saint Herblain" 
unclient .PostalCode = "44800" 

Next 

dc . SubmitChanges ( ) 



Dans ce code, c'est I'instruction Submitchangesdu DataContext qui provoque la mise a jour de la base de donnees en 
executant automatiquement la requete SQL Update suivante pour chaque objet ayant ete modifie. 



UPDATE [dbo] . [Customers] 

SET [City] = @pl0, [PostalCode] = @pll 

WHERE ([CustomerlD] = @p0) AND ( [ CompanyName ] = @pl) AND ( [ContactName] = @p2) 
AND ( [ContactTitle] = @p3) AND ([Address] = @p4) AND ([City] = @p5) 
AND ([Region] IS NULL) AND ([PostalCode] = @p6) AND ([Country] = @p7) 
AND ([Phone] = @p8) AND ([Fax] = @p9) 

Input NChar (Size = 5; Prec = 0; Scale = 0) [FRANR] 



— @p0 

— @pl 

— @p2 

— @p3 

— @p4 

— @p5 

— @p6 

— @p7 

— @p8 

— @p9 

— @pl0 



Input NVarChar 

Input NVarChar 

Input NVarChar 

Input NVarChar 

Input NVarChar 

Input NVarChar 

Input NVarChar 

Input NVarChar 

Input NVarChar 



Size = 


19; Prec = 


0; 


Scale 


= 0) 


[France restauration] 


Size = 


14; Prec = 


0; 


Scale 


= 0) 


[Carine Schmitt] 


Size = 


17; Prec = 


0; 


Scale 


= 0) 


[Marketing Manager] 


Size = 


14; Prec = 


0; 


Scale 


= 0) 


[54, rue Royale] 


Size = 


6; Prec = 


0; 


Scale = 


0) 


[Nantes ] 


Size = 


5; Prec = 


0; 


Scale = 


0) 


[44000] 


Size = 


6; Prec = 


0; 


Scale = 


0) 


[France ] 


Size = 


11; Prec = 


0; 


Scale 


= 0) 


[40.32.21.21] 


Size = 


11; Prec = 


0; 


Scale 


= 0) 


[40.32.21.20] 


(Size 


= 14; Prec 


= 0; Scale 


= 0) [Saint Herblain] 


(Size 


= 5; Prec = 


0; 


Scale 


= 0) 


[44800] 



@pll: Input NVarCha: 
Context: SqlProvider (Sql2005) Model: AttributedMetaModel Build: 3.5.21022.8 



Suppression de donnees 

Comme pour la modification, nous devons au prealable obtenir les elements que nous souhaitons supprimer en 
executant une requete de selection, puis indiquer pour chacun d'entre eux que nous souhaitons les supprimer. Pour 
cela, nous appelons la methode DeieteOnSubmit de la table a laquelle appartient I'eleiment, en lui passant comme 
parametre I'objet a supprimer. Pour valider les suppressions, nous devons ensuite appeler la methode SubmitChanges 
du DataContext. Nous allons tester cela en supprimant les clients Bresiliens de la base de donnees. 
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Dim suppressionClient = From unclient In dc . Customers _ 

Where unclient . Country = "Brazil" _ 
Select unclient 
For Each unclient In suppressionClient 

dc . Customers . DeleteOnSubmit (unclient ) 

Next 

dc . SubmitChanges ( ) 

A I'execution de ce code, nous obtenons cette magnifique Exception. 

dc . C list qui el" s k De let eOnSubmit ( une lierit J 

Ne^t 



dc . Submit Change s [ Jp 





L'enceptHsn SqKxceptton n'a pas £t£ g£r6e 




L'iretrucUon DELETE «t en ccrtftt avec h con train te REFERENCE 

'FKjPrcfer? jcu^wers", Le confUt s"est produft dan* base de donnfies "Morth^intf., 

table , dbo„C>dej£ , r ocfurmri "CuBbomerHy, Unstruction a etc arreti*. 




Con icLls de depannage : 






r une dc- tf ?.;dre c j^Jral E£ tf. .^^k.?.¥.^fi[l ?.?.-. i 






Rechercheh de Paide en hgne com^emertare. . . 






Actions : 






Afficher Jf^detafc,,, 




_ 


Coper Is detail de I'eacepbon dans te Piesse-papiers 





Dans notre precipitation, nous avons simplement oublie un petit detail. Dans la base de donnees, les tables 
Customers, Orders et OrdersDetails sont liees par des contraintes de cle etrangere. II est done impossible de 
supprimer un client s'il possede encore des commandes et de la meme fagon il est impossible de supprimer une 
commande si elle contient encore des lignes de commande. Le probleme vient du fait que LINQ n'est pas capable de 
gerer les suppressions en cascade. Pour resoudre notre probleme nous avons deux solutions : 

• Activer la regie ON DELETE CASCADE sur les contraintes de cle etrangeres. 

• Gerer nous meme la suppression des objets enfants avant la suppression des objets parents. 

C'est cette derniere solution que nous allons utiliser. Puisque notre modele objet est correctement congu, cette 
solution est tres facile a mettre en ceuvre. En effet dans la classe Customers, nous avons la collection Orders qui 
represente les commandes du client. De meme dans la classe Orders, nous avons la collection Order_Details qui 
represente toutes les lignes d'une commande. II suffit simplement d'executer trois boucles imbriquees qui vont 
supprimer les lignes de chaque commande, les commandes de chaque client puis les clients eux-memes. 



Dim suppressionClient = From unclient In dc. Customers _ 

Where unclient . Country = "Brazil" _ 
Select unclient 
For Each unclient In suppressionClient 

For Each uneCommande In unclient . Orders 

For Each uneLigne In uneCommande . Order_Details 
dc . Order_Details . DeleteOnSubmit (uneLigne ) 

Next 

dc . Orders . DeleteOnSubmit (uneCommande) 

Next 

dc . Customers . DeleteOnSubmit (unclient ) 

Next 

dc . SubmitChanges ( ) 



Avec cette solution, il n'y a plus de problemes et nos clients Bresiliens sont bien effaces de la base de donnees. 
Ajout de donnees 

L'ajout de donnees se realise en trois etapes. II faut tout d'abord creer une instance de la classe representant les 
donnees a inserer dans la base. Les proprietes de cette instance sont ensuite initialisees avec les valeurs que Ton 
souhaite ajouter dans la base de donnees. L'objet ainsi configure doit etre ensuite insere dans la table du 
DataContext. Finalement les modifications sont transferees vers la base de donnees. Pour illustrer ces etapes, nous 
allons ajouter un nouveau client dans la base de donnees. 



Dim nouveauClient As Customer 
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nouveauClient = New Customer 
With nouveauClient 

.CustomerlD = "MDUPO" 

.ContactName = "Michel Dupond" 

.CompanyName = "EN I " 

. ContactTitle = "Formateur" 

.Country = "France" 

.City = "Saint Herblain" 

.Address = "rue Benjamin Franklin" 

.Fax = "02.28.03.17.29" 

.Phone = "02.28.03.17.28" 

.PostalCode = "44800" 
End With 

dc . Customers . Insert OnSubmit (nouveauClient ) 
dc . SubmitChanges ( ) 



e. Conflits des mises a jour 

II arrive frequemment que plusieurs utilisateurs travaillent simultanement sur la meme base de donnees. II peut se 
produire des conflits lorsque les memes enregistrements de la base de donnees sont mis a jour par plusieurs 
utilisateurs. LINQ propose un mecanisme permettant de traiter ce probleme. Ce mecanisme se decompose en quatre 
etapes : 

• configurer pour quelles informations de la base de donnees les conflits seront surveilles, 

• detecter qu'un conflit survient, 

• obtenir des informations sur le conflit, 

• resoudre le conflit. 



Configuration des classes pour la detection des conflits 

Lors de la creation des classes avec le concepteur Objet/Relationnel nous pouvons indiquer pour chaque propriete si 
elle doit etre incluse dans le mecanisme de detection des conflit. Chaque membre de la classe generee possede une 
propriete update check a laquelle nous pouvons affecter trois valeurs differentes : 

• Always : la detection des conflits est toujours active pour cet element. 

• WhenChanged : active la detection uniquement si la valeur a ete modifiee. 

• Never : ne pas tenir compte de cet element pour la detection des conflits. 
Par defaut, toutes les proprietes sont utilisees pour la detection des conflits. 
Detection des conflits 

Les conflits surviennent lors du transfert des informations vers la base de donnees. C'est done a ce niveau que nous 
devons intervenir. Pour cela, lors de I'appel de la methode SubmitChanges du DataContext, nous indiquons en passant 
un parametre a cette me- thode comment doit se comporter le mecanisme de detection des conflits. Deux solutions 
sont possibles : 

• FailOnFirstConflict : signale le probleme des que le premier conflit intervient. 

• ContinueOnConflict : essaie d'effectuer toutes les mises a jour et signale a la fin si un conflit est survenu. 

Si un conflit est detecte une exception de typechangeConf lictException est declenchee. L'appel de la methode 
SubmitChanges doit done etre placee dans un bloc Try Catch pour recuperer I'exception. 

Obtenir les informations sur les conflits 

Dans le bloc Catch, nous pouvons obtenir des informations sur les conflits en parcourant la collectionchangeConf licts 
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du DataContext. Cette collection contient un ou plusieurs objets de typeob jectchangeConf lict. La propriete object 
nous permet d'obtenir une reference sur I'element a I'origine du probleme. La propriete MemberConf licts fournit quant 
a elle, la liste de tous les membres de cet objet qui sont a I'origine du probleme. 

Pour chacun, nous avons a notre disposition la valeur originale au moment de la creation de I'instance de la classe a 
partir des informations de la base de donnees, la valeur actuelle pour I'instance de la classe, la valeur actuelle dans 
la base de donnees. 

Resoudre les conflits 

Pour resoudre les conflits survenus lors de la mise a jour de la base de donnees trois hypotheses sont 
envisageables. 

• Remplacer les valeurs des proprietes en conflits avec les informations presentes dans la base de donnees. II 
faut pour cela appeler la methode Resolve de I'objet objectchangeConf lict en lui passant la constante 

Overwrite Current Values. 

• Remplacer les valeurs de la base de donnees par les informations contenues dans les proprietes de I'objet. 
Comme pour la solution precedente, nous devons appeler la methode Resolve de I'objet 

ObjectChangeConflict en lui passant Cette foiS la COnstante KeepCurrentValues. 

• Fusionner les proprietes de I'objet avec les informations de la base de donnees. Les informations de la base 

de donnees ne sont modifiees que si la propriete correspondante de I'objet a ete modifiee. La methode 
Resolve doit dans ce cas etre appelee avec la constante KeepChanges. 

Le code suivant vous permet de tester ces differentes solutions en remplagant simplement la constante lors de 
I'appel de la methode Resolve. 



Dim cl As Customer 

Dim rqt = From unClient In dc . Customers _ 

Where unClient . CustomerlD = "BOLID" _ 
Select unClient 

For Each cl In rqt 

cl.City = "Barcelone" 

Next 

Console . WriteLine ( "modifier le code postal du client BOLID dans la base puis 
taper une touche") 
Console . ReadLine ( ) 
Try 

dc . Submit Changes (Conf lictMode . FailOnFirst Conflict ) 
Catch ex As ChangeConf lictException 

For Each o As ObjectChangeConflict In dc . ChangeConf lict s 
o . Resolve (Ref reshMode . KeepChanges ) 
x o . Resolve (Ref reshMode . KeepCurrentValues ) 
A o . Resolve (Ref reshMode . Ove rwriteCur rent Value s ) 
Next 
End Try 

Console .WriteLine ( "1' objet client :") 

Console . WriteLine (" city : " & cl.City) 

Console . WriteLine ( "postalCode : " & cl . PostalCode ) 

For Each cli In rqt 

Console . WriteLine (" le client dans la base :") 

Console . WriteLine (" city : " & cli. City) 

Console . WriteLine ( "postalCode : " & cli . PostalCode) 

Next 
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Presentation 



Le langage XML (extensible Markup Language) est un langage permettant la representation de donnees. II permet 
d'encapsuler tout type de donnees, en les representant sous la forme d'une arborescence. Celles-ci sont ecrites entre 
des balises ou sous forme d'attributs. Ce format permet de decrire des donnees mais ne permet pas de mettre en forme 
ni de les exploiter. II est principalement utilise pour permettre I'echange de donnees entre applications et meme entre 
systemes differents. II est, egalement, souvent utilise comme format de stockage pour les parametres de configuration 
d'une application. Visual Studio et Windows I'utilisent a cet effet de maniere courante. Ce langage a ete congu par le 
W3C (World Wide Web Consortium). C'est done sur le site http://www.w3.org/XML que vous pourrez obtenir le detail 
des specifications de ce langage. 

Le langage XML est souvent confondu avec le langage HTML. Bien que comportant des similitudes, ces deux langages 
n'ont pas la meme vocation. Voici les points communs entre les langages XML et HTML : 

• Ces deux langages se presentent sous forme "texte seulement". 

• Le contenu des documents est represents au moyen de balises. 

• Ces balises peuvent comporter des attributs. 

• Les balises peuvent etre imbriquees les unes a I'interieur des autres. 

• Ces deux langages sont issus tous deux d'une meme base : le SGML (Standard Generalized Markup Language). 
Le langage XML se distingue du langage HTML par les points suivants : 

• Le langage XML autorise la creation de vos propres balises. 

• Les outils charges du traitement gerent la syntaxe de fagon plus rigoureuse. 

• HTML est un langage congu pour la presentation des donnees. A I'inverse, XML est utilise pour la description des 
donnees. 

Pour pouvoir etre facilement manipulees, les donnees XML doivent etre confiees a un processeur XML. 

Un processeur XML est un module logiciel, specialement ecrit pour manipuler XML. Le recours a un module externe pour 
le traitement XML s'explique par la complexity que represente le developpement d'un processeur XML, totalement 
fonctionnel. En effet, pour qu'un processeur XML soit considere totalement fonctionnel, son fonctionnement doit suivre 
les evolutions du langage definies par le W3C. II est done important de visiter regulierement le site Microsoft pour verifier 
s'il existe une version plus recente du processeur XML que celle installee sur votre machine. 
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Structure d'un document XML 



Avant de manipuler des documents XML a partir de Visual Basic, il est important de bien comprendre la structure de ce type de 
document. Les paragraphes suivants vont presenter les notions elementaires a connaitre avant de se lancer dans 1'utilisation de 
documents XML. 



1. Constituants d'un document XML 

Un document XML peut etre constitue des elements suivants : 
Instruction de traitement 

Les instructions de traitement permettent d'incorporer, dans un document XML, des informations destinees au processeur XML ou a 
d'autres applications devant manipuler le document. Ces instructions de traitement sont utilisees pour fournir une instruction speciale 
a une application travaillant sur le document. 

L'instruction de traitement est inseree dans le document avec la syntaxe suivante : 



< ?nomApplication instruction ?> 



La premiere partie est le nom de 1'application a qui est destinee cette instruction. La deuxieme partie est le texte de l'instruction. 

Un document XML contient en general une instruction de traitement speciale pour definir la version de XML avec laquelle le document 
est conforme et le codage des caracteres utilise par le document. 



<?xml version=" 1 . 0 " encoding="ut f-8 " ?> 



Commentaires 

Les commentaires servent a inclure dans le document des informations destinees aux utilisateurs du document. lis sont ignores par 
le processeur XML ou par les applications utilisant le document. lis ne doivent pas etre incorpores dans une balise. 

La syntaxe suivante doit etre utilisee pour placer un commentaire dans le document. 



<! — ceci est un commentaire— > 



A I'interieur du commentaire 1'utilisation des caracteres — est interdite : 

<! — ceci est un — commentaire — > 

Caracteres reserves 

Certains caracteres sont reserves par le langage XML comme, par exemple, le caractere & de I'exemple suivant : 

<menu>f uomage £ dessei:t</menu> 



P our pouvoir utiliser ces caracteres dans un document XML, vous devez les remplacer par la syntaxe suivante 



Caractere 


utiliser a la place 


& 


&amp ; 


< 


&lt ; 


> 


&gt ; 


> 


&apos ; 




&quot ; 



La syntaxe correcte est done 



<menu>f romage & dessert</menu> 



Des sequences de caracteres plus longues peuvent etre incorporees, en utilisant une section CDATA. La syntaxe est la suivante 



<! [CDATA[{ Select * from desserts where prix < 10} and calories > 500] ]> 



Q Avec cette syntaxe, n'importe quel caractere peut etre utilise sans precaution particuliere. 



Elements XML 

Un element XML est un conteneur qui accueille des donnees et d'autres elements. II se compose d'une balise de debut et d'une 
balise de fin. La syntaxe d'un element XML est la suivante : 
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<NomEl emen t>contenu</ NomEl emen t > 



Les elements doivent respecter certaines regies concernant leur forme : 

• Les noms d'elements ne peuvent pas contenir d'espace. 

• lis ne peuvent pas debuter par un nombre ou un signe de ponctuation. 

• lis ne peuvent pas debuter par xml (quelle que soit la casse). 

• lis doivent debuter juste apres le signe, sans espace. 

• Les balises de debut et de fin doivent avoir la meme casse. 

• Un document XML doit contenir au moins un element : c'est I'element racine. 

• Tous les elements qui suivent I'element racine doivent etre imbriques dans celui-ci. 

• Si un element n'a pas de contenu, il peut etre constitue uniquement par une balise de fin. 

• Seul I'element racine doit avoir une balise de debut et une balise de fin, meme s'il n'a pas de contenu. 
Exemple : 



<?xml version=" 1 . 0 " encoding="ut f-8 " ?> 
<restaurant> 
<menu> 
<ent rees> 

<nom>radis</ nom> 

<nom>pate</nom> 

<nom>saucisson</ nom> 
</ entrees> 
<plat s> 

<nom>choucroute</ nom> 

<nom>cassoulet</ nom> 

<nom>couscous</ nom> 
</plats> 
<f romages> 

<nom>camembert</ nom> 

<nom>brie</nom> 

<nom>roquef ort</ nom> 
</ f romages> 
<dessert s> 

<nom>glace</ nom> 

<nom>tarte</ nom> 

<nom>creme brule</nom> 
</ dessert s> 
</menu> 
</ restaurant> 

Attributs d'elements 

Les attributs d'elements sont utilises pour qualifier un element. lis sont places dans la balise de debut de I'element. Comme les 
elements, ils doivent suivre certaines regies : 

• Un attribut est constitue d'un nom et d'une affectation de valeur. 

• Un element peut contenir un nombre quelconque d'attributs. 

• Les noms d'attributs sont separes par des espaces. 

• Un nom d'attribut ne peut apparaitre qu'une seule fois dans un element. 

• Un nom d'attribut peut apparaitre dans plusieurs elements. 

• Un nom d'attribut ne peut pas contenir d'espace. 
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• L'affectation d'une valeur a un attribut se fait avec le signe egal suivi de la valeur entouree de doubles cotes. 
Exemple : 



<?xml version=" 1 . 0 " encoding="ut f-8 " ?> 
<restaurant> 

<menu type="gastronomique"> 
<entrees> 

<nom calories="50">radis</nom> 

<nom calories=" 300 " >pate</nom> 

<nom calories="350">saucisson</ nom> 
</ entrees> 
<plats> 

<nom calorie s=" 100 0 ">choucroute</ nom> 

<nom calories="2 00 0">cassoulet</ nom> 

<nom calorie s=" 17 0 0 ">couscous</ nom> 
</plats> 
<f romages> 

<nom calorie=" 2 4 0 " >camembert </nom> 

<nom calories=" 300 " >brie</nom> 

<nom calories="120" >roquef ort </ nom> 
</ f romages> 
<dessert s> 

<nom calories=" 34 0 " parf um=" chocolat ">glace</nom> 

<nom calories="250 " f ruits="pommes">tarte</nom> 

<nom calories="400">creme brule</nom> 
</ desserts> 
</menu> 
</ restaurant> 

Espaces de noms 

Un espace de nom est un ensemble de noms d'elements identifies par une reference unique. lis permettent d'eviter les confusions 
lorsque des donnees XML sont fusionnees a partir de differentes sources. 

Si nous prenons I'exemple suivant qui pourrait etre un fichier de configuration d'une application : 

<?xml version=" 1 . 0 " encoding="ut f-8 " ?> 
<applicat ion> 

<menu nom=" fichier "> 

<ent rees>nouveau</ entrees> 
<ent rees>ouvrir</ entrees> 
<ent rees>f ermer</ entrees> 
</menu> 

<menu nom="edition"> 

<ent rees>copier</ entrees> 

<ent rees>couper</ entrees> 

<ent rees>coller</ entrees> 
</menu> 
</ application> 

Dans ce fichier, nous avons des elements deja definis dans un autre fichier. II est clair que les elements menu et entrees n'ont pas la 
meme signification que dans le fichier utilise precedemment. Pour eviter toute ambiguTte, il faut ajouter dans chacun des fichiers une 
definition d'espace de nom rendant unique chaque element. La definition d'un espace de nom s'effectue par I'attribut xmins suivi d'un 
prefixe et de I'identifiant de I'espace de nom. 

La syntaxe est la suivante pour chacun de nos deux fichiers : 



<restaurant xmlns : resto="http : //www . eni-ecole . fr/ 'restaurant "> 
<application xmlns : appli="http : / / www . eni-ecole . fr/ configappli "> 



II est tres important que les identifiants d'espaces de nom soient uniques, si vous souhaitez echanger des informations avec d'autres 
personnes. C'est pourquoi, il est courant d'utiliser le nom de domaine de I'entreprise dans I'identifiant (celui-ci etant suppose unique). 
Avec cette modification, nous pouvons utiliser dans le meme fichier des elements menu et entrees, en ajoutant devant le prefixe de 
I'espace de nom dans lequel ils ont une signification. 



< fusion xmlns : appli="http : / / www .eni-ecole.fr/ configappli " xmlns : resto= 
"http : // www . eni-ecole. fr/ restaurant " > 

<appli:menu nom="f ichier"> 

<appli : entrees>enregist rer</ appli : entrees> 

</ appli : menu> 

<resto:menu nom="economique"> 

<resto : entrees>avocat </ res to : entrees> 
</resto : menu> 
</ f usion> 
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2. Document bien forme et document valide 



Grace au langage XML, nous avons la possibility de creer facilement des documents structures et comprehensibles. II existe 
egalement deux notions permettant de verifier la qualite d'un document XML : un document peut etre bien forme et un document 
peut etre valide. 



a. Document bien forme 

Un document est bien forme s'il obeit aux regies syntaxiques du langage XML. Ces regies sont beaucoup moins strictes que les 
regies de validite. Elles gerent les attributions de noms, les creations et les imbrications d'elements. Pour pouvoir etre traite par un 
processeur XML, un document doit etre bien forme. Si le processeur detecte une erreur, il arrete immediatement le traitement du 
document. 



b. Document valide 

Un document valide est un document XML auquel est liee une DTD (definition du type de document) et qui respecte toutes les 
regies de construction definies dans cette derniere. Lorsqu'un processeur XML analyse le document, il recherche dans la DTD une 
definition pour tout element, attribut, entite de ce document. Des qu'il rencontre une erreur, il arrete le traitement. 
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Manipulation d'un document XML 



La manipulation d'un document XML dans une application VB.NET est facilitee par I'utilisation de DOM (Document Object 
Model). Le DOM vous permet de lire, de manipuler et de modifier un document XML par programme. Ce dernier regit la 
representation en memoire des donnees XML, bien que les donnees XML veritables soient stockees de fagon lineaire 
lorsqu'elles se trouvent dans un fichier ou qu'elles proviennent d'un autre objet. 

Par exemple, le document suivant : 



<?xml version="l . 0"?> 
<restaurant> 

<menu prix="10"> 

<entree>radis</ ent ree> 
<plat>cassoulet</plat> 
<dessert>glace</dessert> 
</menu> 
<vins> 

<rouge>bordeaux</ rouge> 
<bl an c>mus cadet </blanc> 
</vins> 
</ restaurant> 



est represents sous cette forme en memoire dans une application : 




Dans la structure d'un document XML, chaque cercle de cette illustration represente un noeud, appele objet xmiNode qui 
est I'objet de base de I'arborescence DOM. La classexmiDocument prend en charge des methodes destinees a executer 
des operations sur le document dans son ensemble, par exemple pour le charger en memoire ou I'enregistrer sous la 
forme d'un fichier. Les objets xmiNode comportent un ensemble de methodes et de proprietes, ainsi que des 
caracteristiques de base bien definies. Voici certaines de ces caracteristiques : 

• Un nceud ne possede qu'un seul nceud parent, qui est le noeud situe juste au-dessus de lui. 

• Le seul noeud qui est depourvu de parent est la racine du document, puisqu'il s'agit du nceud de premier niveau 
qui contient le document lui-meme et les fragments de document. 

• La plupart des nceuds peuvent comporter plusieurs noeuds enfants, qui sont les noeuds situes directement sous 
eux. 

• Les noeuds situes au meme niveau, represented dans le diagramme par les noeuds menu et vins, sont des noeuds 
freres. 

L'une des caracteristiques du DOM est la maniere dont il gere les attributs. Les attributs ne sont pas des noeuds qui font 
partie des relations parent-enfant et frere. lis sont considered comme une propriete du noeud et sont constitues d'une 
paire, composee d'un nom et d'une valeur. 
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Dans notre exemple, prix="10" associe a I'element menu, le mot prix correspond au nom et la valeur de I'attribut prix est 
10. Pour extraire I'attribut prix="10" du nceud menu, vous appelez la methode GetAttribute lorsque le curseur se trouve 
sur le nceud menu. 

Pour les exemples qui suivent, nous utiliserons le document XML suivant : 



<?xml version=" 1 . 0 " encoding="ut f-8 " ?> 
<restaurant> 

<menu type="gastronomique"> 
<entrees> 

<nom calories=" 50 ">radis</nom> 
<nom calories=" 30 0 ">pate</nom> 
<nom calorie s=" 35 0 ">saucisson</nom> 
</entrees> 
<plat s> 

<nom calories="1000 ">choucroute</nom> 

<nom calories="2000">cassoulet</ nom> 

<nom calories="1700 ">couscous</nom> 
</plat s> 
<f romages> 

<nom calorie="2 4 0 ">camembert</nom> 

<nom calories=" 30 0 ">brie</nom> 

<nom calories="12 0 ">roquef ort</nom> 
</f romages> 
<desserts> 

<nom calories=" 34 0 " parf um=" chocolat ">glace</nom> 
<nom calories="250 " f ruits="pommes ">tarte</nom> 
<nom calories=" 4 0 0 ">creme brule</nom> 
</ dessert s> 
</menu> 

<menu type="economique "> 
<entrees> 

<nom calories=" 50 ">pain</nom> 
</ entrees> 
<plat s> 

<nom calorie s=" 17 0 0 ">jambon</nom> 
</plats> 
<f romages> 

<nom calorie="2 4 0 ">camembert</ nom> 
</f romages> 
<desserts> 

<nom calories=" 34 0 " parfum="a 1' eau">glace</nom> 
</ dessert s> 
</menu> 
</restaurant> 



1. Utilisation de DOM 

La premiere etape, lors de I'utilisation de DOM, consiste a charger le document XML dans un arbre de nceuds DOM. Vous 
devez pour cela declarer un objet xmiDocument puis utiliser la methode Load pour remplir cet objet a partir d'un fichier 
XML. 



dim as XmiDocument 

doc = New Xml . XmiDocument ( ) 

doc . Load ( "rest o . xml" ) 



II est egalement possible de charger des donnees XML a partir d'une chaine de caracteres. Vous devez, dans ce cas, 
utiliser la methode LoadXML en lui fournissant la chaine de caracteres contenant les donnees XML. 

Une fois les donnees XML chargees dans I'arbre, vous pouvez localiser des nceuds particuliers afin de les soumettre a 
des operations de traitement, de manipulation ou de modification. La methode GetEiementsByTagName permet d'obtenir 
un objet xmiNodeList contenant les nceuds concernes. Vous pouvez alors obtenir les attributs du nceud en utilisant la 
propriete Attributes ou verifier s'ils possedent des nceuds enfants avec la propriete HasChiidNodes. Si c'est le cas, vous 
avez acces a ces nceuds a I'aide de la propriete chiidNodes sous forme d'un objet XmiNodeList. 

L'exemple suivant recherche les nceuds menu dans I'arboresence et affiche I'attribut type. 



menus = doc . GetElement sByTagName ( "menu" ) 
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For Each unMenu In menus 

Console . WriteLine (unMenu . Attributes ( "type " ) . Value ) 

Next 



Les caracteristiques des noeuds peuvent egalement etre modifiees en y ajoutant un attribut. Les noeuds menu peuvent 
par exemple recevoir un attribut prix. 



menus = doc . GetElementsByTagName ( "menu" ) 




Dim att As xmiAttriJoute 




For Each unMenu In menus 




it unMenu . Art.riDut.es ( type ) .value — 


gastronomique inen 


att = doc . CreateAtt r ibute (prix" ) 




att. Value = "50 " 




unMenu . Attributes . Append (att ) 




End If 




If unMenu . Attributes ( "type "). Value = 


"economique" Then 


att = doc . CreateAttribute (prix" ) 




att. Value = "15 " 




unMenu . Attributes . Append (att ) 




End If 




Next 





II est egalement possible d'ajouter des noeuds enfants a des noeuds existant dans I'arboresence, en creant des 
instances de la classe xmiNode et en les reliant a leur nceud parent. L'exemple suivant ajoute un digestif au menu 
gastronomique. 



menus = doc . GetElementsByTagName ( "menu" ) 




Dim att As XmlAttribute 




For Each unMenu In menus 




If unMenu . Attributes ( "type " ) .Value 


= "gastronomique" Then 


Dim nl, n2, n3 As XmiNode 




nl = doc . CreateNode (XmlNodeType 


.Element, "digestif", "") 


n2 = doc . CreateNode (XmlNodeType 


.Element, "nom", "") 


n3 = doc . CreateNode (XmlNodeType 


.Text, 


n3. Value = "Cognac" 




n2 . AppendChild (n3) 




nl . AppendChild (n2 ) 




unMenu . AppendChild (nl ) 




End If 




Next 





Apres I'execution des deux exemples precedents, le document XML doit avoir la forme suivante : 



<?xml version=" 1 . 0 " encoding="Windows-12 52 " ?> 
<restaurant> 

<menu type="gastronomique " prix="50 <$&euro [-] >"> 
<entrees> 

<nom calories=" 50 ">radis</nom> 

<nom calories="300">pate</nom> 

<nom calorie s=" 35 0 ">saucisson</nom> 
</entrees> 
<plats> 

<nom calorie s=" 10 00 ">choucroute</nom> 

<nom calories="2 0 00 ">cassoulet</nom> 

<nom calorie s=" 17 0 0 ">couscous</nom> 
</plat s> 
<f romages> 

<nom calorie="2 4 0 ">camembert</nom> 

<nom calories="300">brie</nom> 

<nom calorie s=" 12 0 ">roquef ort</nom> 
</f romages> 
<desserts> 

<nom calories=" 34 0 " parf um=" chocolat ">glace</nom> 
<nom calories="250" f ruits="pommes ">tarte</nom> 
<nom calories="400">creme brule</nom> 

</ dessert s> 

<digestif > 

<nom>Cognac</nom> 

</ digestif > 
</menu> 
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<menu type="economique" prix="15 <$&euro [-] >"> 
<entrees> 

<nom calories=" 50 ">pain</nom> 
</ entrees> 
<plats> 

<nom calorie s=" 17 0 0 ">jambon</nom> 
</plat s> 
<f romages> 

<nom calorie="2 4 0 ">camembert</ nom> 
</f romages> 
<desserts> 

<nom calories=" 34 0 " parfum="a 1' eau">glace</nom> 
</ dessert s> 
</menu> 
</restaurant> 



En fait, seule la representation en memoire du document XML est modifiee. Si vous souhaitez conserver les 
modifications, il faut enregistrer le document dans un fichier pour assurer la persistance des informations. Pour cela, 
vous devez utiliser la methode save de la classe xmi Document, en lui fournissant le nom du fichier dans lequel vous 
souhaitez effectuer la sauvegarde. 



doc . Save ( " resto2 . xml " ) 



2. Utilisation de XPath 

L'objectif principal de XPath est de definir la maniere d'adresser des parties d'un document XML. Le nom XPath vient de 
I'utilisation d'une ecriture de type "path", comme dans les shells DOS et UNIX. Le but est de se deplacer a I'interieur de 
la structure hierarchique d'un document XML comme dans une arborescence de repertoires. Pour avoir une idee de 
I'interet de XPath, nous pourrions dire qu'il est I'equivalent du langage SQL pour un document XML. La comparaison doit 
s'arreter la car la syntaxe n'a vraiment rien a voir ! 



a. Recherche dans un document XML 

La premiere etape, pour rechercher un element dans document XML, consiste a creer une instance de la 
classexPathNavigator. Cette instance de classe doit connaitre le document sur lequel elle va devoir faire des 
recherches, c'est pourquoi c'est le document lui-meme qui par I'intermediaire de la methode createNavigator va fournir 
cette instance de classe. 



Dim navigateur As XPathNavigator = document . CreateNavigator () 

A partir de cette instance, nous allons pouvoir lancer des recherches dans le document a I'aide de la methode select. 
Cette methode utilise comme parametre une chaine de caracteres contenant le chemin XPath de recherche. Nous 
obtenons, apres I'execution, un objet xPathNodeiterator permettant de parcourir la liste des nceuds trouves. 

L'exemple suivant recherche dans le document resto.xml, les entrees disponibles dans les differents menus : 

Dim document As XmlDocument = New XmlDocument () 
document . Load ( "resto . xml " ) 

Dim navigateur As XPathNavigator = document . CreateNavigator ( ) 

Dim noeuds As XPathNodeiterator = navigateur . Select (" /restaurant /menu/entrees" ) 
While noeuds . MoveNext ( ) 

Console . WriteLine (noeuds . Current . OuterXml ) 

Console . WriteLine ( ) 

End While 



Nous obtenons le resultat suivant : 



<entrees> 

<nom calories=" 50 ">radis</nom> 
<nom calories="300">pate</nom> 
<nom calories=" 35 0 ">saucisson</nom> 

</entrees> 

<ent rees> 

<nom calories=" 50 ">pain</nom> 
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</ entrees> 

II est egalement possible d'ajouter a la requete xpath des criteres de selection sur la valeur de certains attributs. 
L'exemple suivant recherche les desserts du menu gastronomique pour lesquels les calories sont inferieures a 350. 

Dim document As XmlDocument = New XmlDocument () 
document . Load ( "resto . xml " ) 

Dim navigateur As XPathNavigator = document . CreateNavigator ( ) 

Dim noeuds As XPathNodelterator = navigateur . Select (" /restaurant /menu [ @type= 
^gastronomique' ] /desserts/nom[@calories A ] ") 
While noeuds . MoveNext ( ) 

Console . WriteLine (noeuds . Current .Value) 
Console . WriteLine () 
End While 



b. Modification des donnees d'un document XML 

Apres avoir trouve un element dans I'arborescence d'un document, il est bien sur possible d'en modifier sa valeur. 
L'exemple suivant diminue de 50% les calories de chaque dessert du menu gastronomique. 

Dim document As XmlDocument = New XmlDocument ( ) 
document . Load ( "resto . xml ") 

Dim navigateur As XPathNavigator = document . CreateNavigator ( ) 
Dim noeuds As XPathNodelterator = navigateur . Select ("/restaurant/menu 
[ @type =/ gastronomique ' ] / dessert s/nom" ) 

While noeuds . MoveNext ( ) 

noeuds . Current . Move ToAt tribute 
noeuds . Current . SetValue (noeuds 
End While 
document . Save ( "resto . xml ") 

Voici le contenu du fichier apres execution du code precedent. 



<?xml version=" 1 . 0 " encoding="ut f-8 " ?> 
<restaurant> 

<menu type="gastronomique "> 
<entrees> 

<nom calories=" 50 ">radis</nom> 
<nom calories="300">pate</nom> 
<nom calories=" 35 0 ">saucisson</nom> 
</ entrees> 
<plats> 

<nom calories=" 10 00 ">choucroute</nom> 

<nom calories="2 0 00 ">cassoulet</ nom> 

<nom calories=" 17 0 0 ">couscous</nom> 
</plat s> 
<f romages> 

<nom calorie="2 4 0 ">camembert</nom> 

<nom calories="300">brie</nom> 

<nom calories=" 12 0 ">roquef ort</nom> 
</ f romages> 
<dessert s> 

<nom calories=" 17 0 " parf um=" chocolat ">glace</nom> 
<nom calories=" 12 5 " fruit s="pommes ">tarte</nom> 
<nom calories="200">creme brule</nom> 
</ desserts> 
</menu> 

<menu type="economique"> 
<ent rees> 

<nom calories=" 50 ">pain</nom> 
</ entrees> 
<plats> 

<nom calories=" 17 0 0 "> jambon</nom> 
</plat s> 
<f romages> 



("calories" , 

. Current . Value * 0.5) 
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<nom calorie="2 4 0 ">camembert</nom> 
</ f romages> 
<dessert s> 

<nom calories=" 34 0 " parfum="a 1' eau">glace</nom> 
</ desserts> 
</menu> 
</ restaurant> 



c. Ajout de noeud a un document XML 

Apres la recherche d'un nceud dans un document, il est possible d'y ajouter des noeuds enfants et des nceuds freres. 
Les methodes insertAfter et insertBefore ajoutent un noeud frere apres ou avant le noeud actuel. La methode 
Appendchiid ajoute un noeud enfant au noeud actuel. 

L'exemple suivant ajoute un nouveau dessert au menu gastronomique. 



Dim document As XmlDocument = New XmlDocument ( ) 
document . Load ( "resto . xml" ) 

Dim navigateur As XPathNavigator = document . CreateNavigator ( ) 
Dim noeuds As XPathNodelterator = navigateur . Select (" /restaurant /menu [ @type= 
A gastronomique' ] /desserts" ) noeuds . MoveNext ( ) 

noeuds . Current . AppendChild ( "<nom calories=' 800' >crepes</ nom>" ) 
document . Save ( "resto . xml " ) 



Apres I'execution de ce code, le document devient : 



<?xml version=" 1 . 0 " encoding="ut f-8 " ?> 
<restaurant> 

<menu type="gastronomique "> 
<ent rees> 

<nom calories=" 50 ">radis</nom> 
<nom calories="300">pate</nom> 
<nom calories=" 35 0 ">saucisson</nom> 
</ entrees> 
<plats> 

<nom calories=" 10 00 ">choucroute</nom> 

<nom calories="2000">cassoulet</ nom> 

<nom calories=" 17 0 0 ">couscous</nom> 
</plat s> 
<f romages> 

<nom calorie="2 4 0 ">camembert</ nom> 

<nom calories="300">brie</nom> 

<nom calories=" 12 0 ">roquef ort</nom> 
</f romages> 
<dessert s> 

<nom calories=" 34 0 " parf um=" chocolat ">glace</nom> 
<nom calories="250" fruit s="pommes ">tarte</nom> 
<nom calories="400">creme brule</nom> 
<nom calories=" 800">crepes</nom> 

</ desserts> 
</menu> 

<menu type="economique"> 
<entrees> 

<nom calories=" 50 ">pain</nom> 
</ entrees> 
<plats> 

<nom calories=" 17 0 0 "> jambon</nom> 
</plat s> 
<f romages> 

<nom calorie="2 4 0 ">camembert</ nom> 
</f romages> 
<dessert s> 

<nom calories=" 34 0 " parfum="a 1' eau">glace</nom> 
</ desserts> 
</menu> 
</restaurant> 
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Introduction 



Maintenant que votre application est terminee, testee, deboguee et done qu'elle fonctionne sans problemes, il est temps 
de penser au moyen de la mettre a la disposition des utilisateurs. Deux solutions sont disponibles : 

• La technologie de deploiement Windows Installer. L'application est empaquetee dans un ou plusieurs fichiers qui 
sont ensuite distribues aux utilisateurs ; ceux-ci executent le fichier Setup.exe pour installer rapplication. 

• Le deploiement ClickOnce. Avec cette solution, la publication des fichiers de 1'application se fait a un emplacement 
centralise et I'utilisateur installe ou execute 1'application a partir de cet emplacement. 

Nous allons done detailler chacune de ces deux techniques de deploiement. 
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Deploiement avec Windows Installer 



Microsoft Windows Installer est un service d'installation et de configuration d'application disponible sur tous les 
systemes d'exploitation Microsoft. Le principe de base du fonctionnement de Windows Installer repose sur le 
regroupement dans un seul element de toutes les donnees et instructions necessaires pour le deploiement d'une 
application. C'est une evolution importante par rapport aux procedures d'installations classiques qui consistaient 
essentiellement a fournir I'ensemble des fichiers necessaires pour le bon fonctionnement de I'application et un script 
charge de la recopie de ces fichiers sur le disque dur de la machine. 

Avec Windows Installer, le systeme conserve une trace de toutes operations effectuees pendant 
Installation : repertoires crees, fichiers copies, entrees de la base de registre modifiees, etc. Ces informations sont par 
la suite utilisees lors de la desinstallation de I'application. Windows Installer effectue alors les operations inverses 
pendant la desinstallation de I'application. Un controle est cependant realise pour s'assurer qu'aucune autre application 
ne necessite un fichier, une cle de registre ou un composant qui s'apprete a etre supprime. Cette verification permet de 
s'assurer que la suppression d'une application n'entraine pas de problemes de fonctionnement sur une autre 
application. 

Windows Installer gere egalement la reparation d'une application en reinstallant automatiquement les fichiers 
manquants qui ont pu etre supprimes, par megarde, par I'utilisateur. 

La procedure d'installation est effectuee a I'interieur d'une transaction, garantissant que I'application sera installee 
completement ou que, en cas d'echec au cours de Installation, le systeme retrouvera son etat initial. 

Les procedures d'installations sont en fait de veritables applications, elles sont d'ailleurs gerees par Visual Studio comme 
des projets a part entiere. 



1. Creation d'un projet d'installation 

La methode de creation d'un projet d'installation est identique a celle utilisee pour n'importe quel autre type de projet 
de Visual Studio. Dans le menu Fichier, selectionnez Ajouter, puis Nouveau projet. Dans la boite de dialogue d'Ajout 
de projet, selectionnez ensuite Autres types de projets et Projets d'installation et de deploiement. Enfin choisissez 
parmi les modeles celui qui correspond a vos besoins (Projet d'installation dans notre cas). Le projet est alors ajoute 
a la solution actuelle et I'editeur du systeme de fichiers est ouvert automatiquement. Vous pouvez maintenant 
configurer les proprietes du programme d'installation qui vont determiner son comportement. Voici ci-dessous les 
principales proprietes d'un programme d'installation : 

• AddRemoveProgramsIcon : indique I'icone utilisee pour representer I'application dans la boite de dialogue 
Ajout/Suppression de programmes. 

• Author : specifie le nom de I'auteur de I'application. Par defaut cette propriete correspond au nom du detenteur 
de la licence de Visual Studio utilise pour developper I'application. 

• DetectNewerlnsta I led Version : indique si le programme d'installation verifie I'existence d'une version plus 
recente de I'application sur le poste client. Si c'est le cas la procedure d'installation est annulee. 

• Manufacturerllrl : adresse du site Web du fabricant de I'application. Elle est affichee dans la boite de dialogue 

Informations de support technique accessible a partir de la boite de dialogue Ajout/Suppression de 
programmes. 

• ProductCode : Windows Installer utilise cette propriete pour identifier une application lors de chaque 

installation ou mise a jour ; deux applications differentes ne peuvent pas comporter le meme code 
ProductCode. 

• ProductName : contient le nom decrivant I'application qui est installee sur un ordinateur cible. Par defaut, ce 
nom est identique a celui du projet de deploiement. Cette propriete ProductName est affichee dans la 
description de I'application sur la boite de dialogue Ajout/Suppression de programmes. Elle est egalement 
utilisee dans la creation du chemin d'installation par defaut utilise lors de Installation. 

• RemovePreviousVersions : specifie si le programme d'installation doit supprimer, lors de Installation, toute 

version anterieure d'une application. Si cette propriete a la valeur True et qu'un numero de version anterieure 
est detecte lors de I'installation, la fonction de desinstallation de cette version est appelee. 

• TargetPlatform : specifie la plate-forme materielle pour laquelle I'application a ete congue. Au moment de 

I'installation, cette propriete est verifiee par rapport a I'ordinateur cible pour determiner si I'installation peut 
continuer. 
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• Version : specifie le numero de version du programme d'installation. Cette propriete doit etre modifiee pour 

chaque version finale de votre programme d'installation. Si vous modifiez cette propriete, vous devez 
egalement mettre a jour la propriete Productcode. 

Un petit detail doit vous sembler bizarre car parmi toutes ces proprietes aucune d'entre elles ne permet d'indiquer 
quelle application doit etre installee. Cette information doit en fait etre fournie lors de la configuration du programme 
d'installation. C'est ce que nous allons voir dans I'etape suivante. 



2. Configuration du programme d'installation 

La configuration du fonctionnement du programme d'installation se fait par I'intermediaire d'un editeur specifique a 
chacune des fonctionnalites. Ces editeurs sont disponibles par le menu contextuel affiche en effectuant un die droit sur 
le nom du projet de deploiement dans I'explorateur de solutions. 



_ g Generer 
Regenerer 



Renommer 



Proprietes 





Affichage ► 


Systeme de fichiers 




Ajouter ► 


rf^*i 


Registre 




Installer 


J? 


Types de fichiers 




Desinstaller 




Interface utilisateur 




Couper 




Actions personnalisees 


X 


Supprimer 




Conditions de lancement 



Ces editeurs vont permettre de configurer le fonctionnement du programme d'installation. 

• L'editeur du systeme de fichiers va permettre d'ajouter a un projet de deploiement les fichiers constituant 
I'application a deployer. 



L'editeur du registre configure les cles et les valeurs de Registre a ajouter au Registre de I'ordinateur cible. 



• L'editeur des types de fichiers specifie les associations entre les types de fichiers et les actions autorisees pour 
chaque type de fichier. 

• L'editeur de I'interface utilisateur permet de specifier et de configurer les boites de dialogue affichees pendant 
I'installation de I'application. 

• L'editeur des actions personnalisees permet de specifier les actions supplementaires a executer pendant 
I'installation. 



• L'editeur des conditions de lancement specifie les conditions requises pour I'installation. 



Nous allons etudier en detail chacun de ces editeurs. 



a. L'editeur du systeme de fichiers 

C'est certainement l'editeur le plus important de la configuration d'un projet de deploiement. Par son intermediaire, 
nous allons indiquer les modifications a apporter au systeme de fichiers de I'ordinateur sur lequel I'application va etre 
deployee. 
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Mm 



II est compose de deux parties : un volet de navigation a gauche et un volet d'informations a droite. Le volet de 
navigation contient la liste hierarchique des dossiers correspondant au systeme de fichiers de I'ordinateur 
d'installation. Les noms des dossiers correspondent aux dossiers Windows standard. Par exemple, la rubrique 
dossier d'application designe le sous-dossier du dossier Program Files ou I'application sera installee. Le menu 
contextuel de chacun des dossiers permet d'y ajouter differents elements. Dans le dossier d'application, nous 
pouvons par exemple ajouter un sous-dossier, un fichier, un assembly ou, option la plus frequemment utilisee, une 
sortie de projet (les fichiers crees par la compilation d'un projet). C'est done grace a cet editeur que nous allons enfin 
pouvoir indiquer quel projet nous souhaitons deployer. La boite de dialogue suivante nous permet de choisir le projet 
a deployer et lesquels de ces elements nous souhaitons deployer sur les postes des clients. 



Ajouter le groupe de sorties du projet 



Projet : 



AppliExplorer 



5ortie principale 




Ressources localisees 




Symboles de debogage 




Content Files 




Source Files 




Fichiers de documentation 




Assemblys de serialisation XML 




mwm\ 


> 



Configuration : 
Description : 



Release Any CPU 



Contient le fichier DLL ou EXE genere par le projet. 



OK 



Annuler 



Pour que I'application puisse s'executer sur I'ordinateur client, il faut au minimum selectionner I'option Sortie 
principale. Par contre, I'option Source Files est plus rarement utilisee. Vous devez egalement indiquer si vous 
souhaitez deployer la version Debug ou la version Release de I'application. L'ajout de plusieurs elements se fait en 
maintenant la touche [Ctrl] enfoncee pendant la selection. 

Les dossiers User's Desktop et User's Program Menu regoivent generalement un simple raccourci vers I'application. Ce 
raccourci doit au prealable etre cree par le menu contextuel de la sortie principale de I'application. 
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Nonn 



Type 




Creer un raccourci vers Sortie principale de AppliExplorer (Actif) 



Dependences 

Filtre 

Sorties 



Couper 

Coller 
Supprimer 
Fenetre Proprietes 



II doit ensuite etre deplace vers le dossier correspondant (Bureau de I'utilisateur ou Menu Programmes de 
I'utilisateur). 



Pour que chacun de ces dossiers soient crees meme s'il ne contient aucun element, il faut modifier sa propriete 

AlwaysCreate SUrTrue. 



b. L'editeur du registre 



L'editeur du Registre permet d'ajouter des cles de Registre a un projet de deploiement. Si une cle n'existe pas dans 
le registre de la machine lors du deploiement, elle est ajoutee pendant 1'installation. II est possible d'ajouter des cles 
sous n'importe quelle cle de niveau superieur dans l'editeur du registre. 



XT 



Registre (5etup3) 



Ifi? 1 Registre de I'ordinateur cible 
_l HKEV_CLASSES_ROOT 

Software 
[jl-Ca H K E V _L 0 C A L _M A C H I N E 
CJ HKEV_USERS 
3 Ruche utilisateur/ordinateur 



Nonn 



Valeur 



Pour ajouter une cle dans le registre, vous devez au prealable selectionner un nceud de niveau superieur, ou une 
sous-cle puis a Taide du menu contextuel utiliser I'option New - Key. La cle doit ensuite etre renommee et ses 
proprietes modifiees en fonction des besoins. La principale modification consiste a configurer la propriete 
DeieteAtuninstaii pour que cette cle de registre soit supprimee lors de la desinstallation de Tapplication. 

La suppression d'une cle est realisee tout aussi simplement avec I'option Supprimer du menu contextuel. II faut 
cependant etre prudent car la suppression d'une cle entraine la suppression de toutes les sous-cles et valeurs 
contenues dans celle-ci. Un message d'avertissement est affiche pour vous prevenir de cette situation dangereuse et 
vous demande de confirmer votre choix. 
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L'editeur du registre est egalement utilise pour specifier les valeurs des nouvelles cles ou modifier les valeurs 
existantes. Vous pouvez ajouter des valeurs de type chaine, binaire et DWORD. Pendant Installation, les valeurs 
sont ecrites dans le Registre ; les valeurs existantes sont remplacees par les valeurs specifiees dans le programme 
d'installation. 

II est possible d'ajouter des cles et des valeurs de registre a un projet de deploiement en important un fichier de 
registre (.reg) dans l'editeur du registre. Cela vous permettra de copier une section complete d'un registre existant 
en une seule fois pour gagner du temps. Les fichiers de registre peuvent etre crees a I'aide d'outils tels que l'editeur 
du registre de Windows (regedit.exe). Cette solution est tres pratique pour transferer sur le poste des utilisateurs 
une portion de registre recuperee sur le poste utilise pour le developpement de I'application. Le menu contextuel 
disponible sur I'element Registre de I'ordinateur cible propose I'option Importer permettant de realiser cette 
operation. Vous devez simplement choisir le fichier (.reg) contenant les informations a importer. 



c. L'editeur des types de fichiers 

L'editeur des types de fichiers est utilise pour indiquer les types de documents et les extensions de fichier associes a 
votre application lors de son installation sur un ordinateur. Une fois I'association installee, I'extension et la description 
du type de fichier figurent dans la liste des types de fichiers du systeme. 

L'association d'un type de fichier avec une application necessite trois etapes : 



• L'ajout d'un type de document. 



• L'association d'une extension de fichier. 



• L'association d'un fichier executable. 



Pour ajouter un type de fichier vous devez utiliser le menu contextuel de l'editeur des types de fichiers et choisir 
I'option Ajouter un type de fichier. II faut ensuite modifier le nom de I'element qui vient d'etre ajoute. L'etape 
suivante consiste a indiquer I'extension ou les extensions associees a ce type de fichier. El les doivent etre saisies 
dans la fenetre de proprietes, dans la rubrique Extensions, sans etre precedees d'un point. Si plusieurs extensions 
sont disponibles, elles doivent etre separees par un point virgule lors de la saisie dans la fenetre de proprietes. La 
derniere etape est maintenant d'associer une application (un fichier executable) a ce type de fichier. La propriete 
command est utilisee a cet effet. Un editeur particulier vous permet de rechercher parmi les dossiers du projet 
I'executable qui sera utilise pour manipuler ce type de document. 



Selectionner un element dans le projet 



mm 



Regarder dans : 



Dossier d'application 



pjSortie principals de AppliExplorer (Actif); 



Ajouter un Fichier. . . 



Ajouter une sortie. 



Ajouter un assembly, 



Chemin d'acces source : 



Types de fichiers : 



Fichiers executables (*.exe) 



OK 



Annuler 



C'est cet executable qui sera lance lorsque I'utilisateur effectuera un double die sur un fichier de ce type dans 
I'Explorateur Windows. II est possible d'ajouter d'autres actions qui seront disponibles par I'intermediaire du menu 
contextuel de I'explorateur Windows. Ces elements peuvent etre ajoutes en utilisant le menu contextuel disponible 
sur un type de fichier et en choisissant I'option Ajouter une action. L'action doit ensuite etre configuree en indiquant 
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les parametres suivants : 



• nom de Taction : utilise pour representer Taction dans le menu contextuel de Texplorateur Windows. Pour 

inclure une touche d'acces rapide dans le nom de Taction, faites preceder du signe & la lettre utilisee pour 
acceder a la commande. 

• Arguments : represente les parametres passes sur la ligne de commande permettant la realisation de 

Taction. Par exemple, la chaine suivante peut etre associee a Taction d'impression d'un document.: /p 
Dans cette chaine de caracteres, la partie represente le nom du fichier sur lequel le menu contextuel a 

ete active. Les caracteres w sont obligatoires pour eviter les problemes si le nom de fichier comporte un 
espace. II faut bien sur que votre application ait ete congue pour traiter ces parametres lors de son 
demarrage. 

• Verb : indique le verbe utilise pour demander Texecution de Taction. 



d. L'editeur de I'interface utilisateur 

Avec TEditeur de Tinterface utilisateur, vous pouvez specifier et definir les proprietes des boites de dialogue 
predefinies qui seront affichees pendant Installation sur Tordinateur. 

Cet editeur contient deux sections : install et Administrative install. La section install contient les boites de 
dialogue qui seront affichees quand Tutilisateur final executera le programme d'installation ; la section 
Administrative install contient des boites de dialogue qui seront affichees quand un administrateur systeme 
telechargera le programme d'installation vers un emplacement reseau. 

Un ensemble de boites de dialogue predefinies est affiche dans l'editeur ; vous pouvez les reorganiser ou les 
supprimer. 

Les boites de dialogue predefinies se repartissent en trois categories : 

• Les boites de dialogue Debut s'affichent avant que Tinstallation ne commence. Elles servent generalement a 
recuperer des informations sur Tutilisateur ou permettre de changer de repertoire d'installation. 

• Une boite de dialogue Progression donne des informations sur Tavancement d'une installation. 

• Les boites de dialogue Fin s'affichent lorsque Tinstallation a reussi. Elles servent generalement a signaler a 
Tutilisateur que Tinstallation est terminee ou a lui permettre de lancer Tapplication. 

Vous pouvez deplacer des boites de dialogue entre les nceuds des categories par un glisser-deplacer ou a Taide des 
commandes Couper et Coller du menu Edition. 

Pour que Tinstallation se fasse sans boites de dialogue vous devez supprimer toutes les boites de dialogue dans 
TEditeur de Tinterface utilisateur. 

Chaque boite de dialogue peut etre personnalisee en fonction des besoins. Pour chacune d'entre elles les proprietes 
disponibles modifient Taspect de la boite de dialogue. Sur toutes ces boites de dialogue, la propriete BannerBitmap 
represente le logo affiche sur la boite de dialogue. Des proprietes specifiques sont accessibles sur chacune des 
boites de dialogue. 

Boite de dialogue Bienvenue 

• La propriete weicomeText contient le message de presentation de Tapplication. 

• La propriete copyrightwarning indique les informations relatives au copyright de Tapplication. 
Boite de dialogue Dossier d'installation 

• La propriete instaiiAiiusersvisibie determine si les boutons permettant de choisir le type d'installation 
(pour un seul utilisateur ou pour tous les utilisateurs) sont visibles. 

Boite de dialogue Progression 

• L'affichage d'une barre de progression au cours de Tinstallation est determine par la propriete 

ShowProgressBar. 
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Boite de dialogue Termine 

Les informations concernant les mises a jour disponibles sont affichees par la propriete updateText. 



e. L'editeur des actions personnalisees 

Cet editeur permet de specifier des actions supplementaires a executer sur I'ordinateur pendant 1'installation. Par 
exemple, il peut etre utile d'executer un programme creant une base de donnees sur un serveur. 

Avant de pouvoir etre ajoutees a un projet de deploiement, les actions personnalisees doivent etre compilees sous 
forme de fichier .dll ou .exe, ou ajoutees a un projet en tant que script ou assembly. Elles ne peuvent etre executees 
qu'a la fin de 1'installation. 

L'editeur contient quatre dossiers qui correspondent chacun a une phase de 1'installation : 
Installer 

Les actions personnalisees placees sous ce nceud seront executees a la fin de la phase d'installation, une fois tous 
les fichiers installes. 

Valider 

Les actions personnalisees placees sous ce nceud seront executees a la fin de la phase de validation de 1'installation, 
qui a lieu une fois la phase d'installation terminee sans erreur. 

Restaurer 

Les actions personnalisees placees sous ce nceud seront executees a la fin de la phase de restauration de 
1'installation, qui est declenchee lorsqu'une erreur d'installation se produit. 

Desinstaller 

Les actions personnalisees placees sous ce nceud seront executees a la fin de la phase de desinstallation de 
1'installation, qui a lieu lorsqu'une application est desinstallee. 

Pour chacune de ces rubriques vous pouvez ajouter une action personnalisee par I'option Add Custom Action du 
menu contextuel. Vous devez ensuite selectionner parmi les elements disponibles dans le projet celui charge de 
realiser votre action personnalisee (.exe, .dll , .vbs...). 

Les actions personnalisees seront executees dans leur ordre d'affichage dans l'editeur. Vous pouvez modifier cet 
ordre par un glisser-deplacer ou a I'aide des commandes Couper et Coller du menu Edition. 



f. L'editeur des conditions de lancement 

Cet editeur doit etre utilise pour specifier les conditions requises pour 1'installation de votre application. Les 
conditions peuvent concerner la recherche d'un fichier, d'une entree du registre ou d'un composant. Le resultat de la 
recherche est retourne sous forme d'une propriete qui est ensuite evaluee durant 1'installation. L'installation echoue 
si une condition n'est pas remplie. 

L'editeur des conditions de lancement est constitue d'une arborescence composee de deux sections : la section 
Recherche de I'ordinateur cible pour configurer les recherches et la section Conditions de lancement pour etablir 
les conditions basees sur le resultat des recherches. 

Dans un premier temps vous devez ajouter, par le menu contextuel de la rubrique Recherche de I'ordinateur cible, 

les recherches a effectuer avant l'installation. 

Recherche sur un fichier 

Pour cette categorie de recherche, les proprietes suivantes sont disponibles : 

• Depth : specifie le nombre de niveaux de sous-dossiers dans lesquels rechercher un fichier. La valeur par 
defaut est 0 indiquant que seul le dossier indique sera parcouru. 

• FileName : specifie le nom du fichier a rechercher. Les caracteres generiques (* ?) ne sont pas autorises. 

• Folder : specifie le dossier dans lequel la recherche va debuter. Les noms des dossiers speciaux reconnus 
par Windows Installer doivent etre saisie entre les caracteres [ et ]. La valeur par defaut est [SystemFolder]. 
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• MaxDate : le fichier recherche ne doit pas etre plus recent que cette date. 

• Maxsize : specifie la ta i I le maximale (en octets) du fichier recherche. El le ne doit pas etre superieure a cette 
valeur. 

• MaxVersion : specifie le numero de version maximal d'un fichier. 

• MinDate : le fichier recherche doit etre plus recent que la date indiquee. 

• Minsize : specifie la ta i I le minimale (en octets) d'un fichier lors d'une recherche de fichiers. Elle doit etre 
superieure a cette valeur. 

• Minversion : specifie le numero de version minimal d'un fichier. Ce numero doit etre saisi avec le format 
n.n.n.n, ou n est un entier. 

• Name : specifie le nom utilise dans I'Editeur des conditions de lancement pour identifier cette recherche de 
fichiers. 

• Property : specifie le nom de la propriete utilisee au moment de 1'installation pour tester le resultat de la 
recherche. 

Recherche dans le registre 

Les proprietes suivantes permettent de configurer ce type de recherche : 

• Name : specifie le nom utilise dans I'Editeur des conditions de lancement pour identifier cette recherche dans le 
registre selectionne. 

• Property : specifie le nom de la propriete utilisee au moment de 1'installation pour tester le resultat de la 
recherche. 

• RegKey : specifie une cle du registre a rechercher. Cette valeur doit representer le chemin complet de la cle du 

registre. Elle doit correspondre exactement au nom et au chemin d'acces qui figurent dans le registre, 
espaces eventuels compris, sinon la recherche de la cle dans le registre echoue. 

• Root : specifie le point de depart de la recherche dans le Registre. Les valeurs possibles sont : HKLM : debute 

la recherche dans HKEY_LOCAL_MACHINE, HKCU : debute la recherche dans HKEY_CURRENT_USER, 
HKCR : debute la recherche dans HKEY_CLASSES_ROOT et HKU : debute la recherche dans HKEYJJSERS. 

• value : specifie la valeur a rechercher dans la base de registre. Cette propriete doit etre une chaine 
correspondant a la valeur affichee dans la colonne Donnees de I'editeur du registre Windows. 

Recherche de composants 

Cette recherche permet de verifier qu'un composant requis par votre application est disponible sur la machine 
d'installation. Les proprietes de recherche sont les suivantes : 

• componentid : specifie le GUID du composant a rechercher. cette valeur doit etre fournies sous la forme d'une 
chaine mise en forme comme un GUID, a I'aide du format {XXXXXXXX-XXXX-XXXX-XXXX-XXXXXXXXXXXX} ou X 
est un chiffre hexadecimal (0,1,2,3,4,5,6,7,8,9, A, B, C, D, E, F). Les accolades sont obligatoires. 

• Name : specifie le nom utilise dans I'Editeur des conditions de lancement pour identifier cette recherche dans le 
Registre selectionnee. 

• Property : specifie le nom de la propriete utilisee au moment de 1'installation pour tester le resultat de la 
recherche. 

Le resultat de ces recherches peut ensuite etre utilise pour ajouter des conditions de lancement de 1'installation par 
le menu contextuel de la rubrique Conditions de lancement. 

Pour chaque condition de lancement, les proprietes suivantes sont disponibles : 
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• instaiiuri : indique remplacement ou les fichiers manquant peuvent etre telecharges si une condition de 
lancement associee a la presence d'un fichier echoue. 

• Message : specifie le message a afficher lorsqu'une condition a la valeur false au moment de 1'installation. 

• Name : specifie le nom utilise dans I'Editeur des conditions de lancement pour identifier cette condition de 
lancement. 

• condition : specifie une condition qui doit etre remplie (prendre la valeur true) au moment de 1'installation 
pour que 1'installation puisse continuer. 

La derniere etape consiste a lancer la generation du projet et a tester son bon fonctionnement par I'intermediaire de 
I'option Install du menu Project. 



Fichier Edition Affichage 


Projet 


Generer Deboguer Outils Fenetre ? 


m - ±1 •& a 0 c 




Ajouter ► 


Explorateur de serveurs ^ 




Ajouter un nouveau diagramme de systeme distribue. . . 






Decharger le projet 


[P Connexions de donnee: 
S" i portabletg. garage. 
+ _^ portabletg. North w\ 




Dependences du projet. . . 

Ordre de la generation du projet. . . 


^ Serveurs 

+ ^ portableTG 


h 


Actualiser les elements de boite a outils du projet 




| Proprietes 




Installer 






Desinstaller 
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Deploiement avec ClickOnce 



ClickOnce est une technologie de deploiement permettant de creer des applications Windows dont la mise a jour peut 
etre effectuee automatiquement. L'installation de ce type d'application est effectuee avec un minimum d'intervention de 
la part de I'utilisateur. Cette technique simplifie I'etape de deploiement qui parfois se transforme en veritable casse tete. 
Les problemes suivants sont frequemment rencontres lors du deploiement d'une application. 

Mise a jour de rapplication 

Avec une methode de deploiement classique, lorsqu'une nouvelle version de 1'application est disponible, I'utilisateur doit 
en general reinstaller l'application pour beneficier des mises a jour. La technologie ClickOnce est capable de fournir les 
mises a jour automatiquement. Dans ce cas seules les parties de 1'application qui ont changees sont telechargees, puis, 
1'application complete, mise a jour est reinstalled automatiquement a partir d'un nouveau dossier. 

Composants partages 

Les applications dependent souvent de composants partages, d'ou I'existence d'un risque potentiel de conflit de 
versions. Dans le cas d'un deploiement avec ClickOnce, chaque application est autonome et ne peut pas interferer avec 
les autres applications. 

Autorisations de securite 

Generalement Installation d'une application avec une methode classique exige des autorisations administratives sur le 
poste de travail ou est effectuee Installation. Le deploiement avec ClickOnce autorise les utilisateurs n'ayant pas de 
privileges administratifs a effectuer I'installation et n'attribue que les autorisations de securite d'acces du code 
necessaires au bon fonctionnement de 1'application. 

Toutes ces contraintes ont parfois conduit les developpeurs a choisir une technologie Web au lieu d'applications 
Windows classiques simplement pour beneficier des facilites de deploiement de ce type d'applications. La contre partie 
de ce choix se retrouve au niveau de la moins bonne reactivite de 1'application et d'une interface utilisateur moins 
elaboree. La technologie ClickOnce rend le deploiement d'applications Windows aussi simple que le deploiement 
d'applications Web. N'importe quelle application console ou Windows Forms peut etre publiee avec ClickOnce. Trois 
techniques de publication sont disponibles : 

• a partir d'une page Web ; 

• a partir d'un partage de fichiers reseau ; 

• a partir d'un support tel qu'un CD-Rom ou DVD. 

L'execution de 1'application dispose egalement de deux variantes. L'application peut etre installee sur I'ordinateur d'un 
utilisateur et executee meme si I'ordinateur est hors connexion. Elle peut egalement etre executee uniquement en mode 
en ligne sans installer aucun element de fagon permanente sur I'ordinateur. Les applications ClickOnce sont isolees les 
unes des autres et I'installation ou l'execution d'une application ne peut pas interrompre des applications existantes. Par 
defaut, les applications ClickOnce s'executent dans les zones de securite Internet ou Intranet. En fonction des besoins 
l'application peut demander des autorisations de securite plus elevees. 

La mise a jour de l'application peut egalement avoir plusieurs modes de fonctionnement. Elles peuvent etre 
automatiques et dans ce cas, l'application verifie a chaque demarrage si des mises a jour sont disponibles, puis elle les 
installe automatiquement. L'utilisateur peut manuellement verifier I'existence d'une mise a jour et decider ou non de son 
installation. L'administrateur peut aussi rendre obligatoire I'installation d'une mise a jour. 



1. Principe de fonctionnement de ClickOnce 

Le mecanisme de deploiement ClickOnce repose sur deux fichiers XML appeles manifestes : 

• Un manifeste d'application. 

• Un manifeste de deploiement. 

Le manifeste d'application decrit l'application elle-meme, les assemblies et les fichiers qui la composent, les 
dependances, les autorisations requises pour l'execution et I'emplacement dans lequel les mises a jour seront 
disponibles. 
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Le manifeste de deploiement decrit comment l'application est deployee, y compris ['emplacement du manifeste 
d'application et la version de l'application que les clients doivent executer. Ces deux fichiers sont generes par Visual 
Studio. 

Le manifeste de deploiement est copie vers ['emplacement de deploiement. Cet emplacement peut etre un serveur 
Web, un repertoire partage sur le reseau ou des supports amovibles tels qu'un CD-Rom. Le manifeste d'application et 
tous les fichiers de I'application sont egalement copies vers un I'emplacement de deploiement specifie dans le 
manifeste de deploiement. Ces fichiers peuvent etre copies vers le meme emplacement ou dans deux emplacements 
distincts. Visual Studio prend egalement en charge les copies de ces fichiers. 

Apres le deploiement de I'application dans I'emplacement de deploiement, les utilisateurs peuvent telecharger et 
installer I'application en cliquant sur I'icone representant le fichier manifeste de deploiement disponible sur une page 
Web ou dans un dossier. L'utilisateur voit simplement s'afficher une simple boite de dialogue lui demandant de 
confirmer Installation. Apres validation, Installation continue et I'application est lancee sans autre intervention. Si 
I'application necessite des autorisations d'execution plus elevees, la boite de dialogue demande a l'utilisateur 
d'accorder les autorisations pour que I'installation puisse se poursuivre. 

L'application est ajoutee au menu Demarrer de l'utilisateur et a la rubrique Ajout/Suppression de programmes du 
Panneau de configuration. Contrairement a d'autres technologies de deploiement, rien n'est ajoute au dossier 
Program Files, dans la base de registre ou sur le bureau. De plus aucun droit d'administration n'est necessaire pour 
I'installation. 

Lorsque vous creez une version mise a jour de I'application, vous devez egalement generer un nouveau manifeste 
d'application et copier les fichiers vers un emplacement de deploiement, generalement un dossier frere du dossier de 
deploiement d'origine. Le manifeste doit aussi etre mis a jour pour qu'il pointe vers I'emplacement de la nouvelle 
version de I'application. 



2. Les d if fe rentes methodes de deploiement 

Pour deployer une application ClickOnce, trois strategies sont possibles. La strategie que vous choisissez depend 
principalement du type d'application que vous deployez. Les trois strategies de deploiement sont les suivantes : 

• Installation a partir du Web ou d'un partage reseau ; 

• Installation a partir d'un CD-Rom ; 

• Demarrage de I'application a partir du Web ou d'un partage reseau. 



Installation a partir du Web ou d'un partage reseau 

Cette strategie permet de deployer votre application sur un serveur Web ou un partage de fichiers reseau. Lorsqu'un 
utilisateur final souhaite installer I'application, il clique sur une icone d'une page Web ou double clique sur une icone du 
partage de fichiers. L'application est ensuite telechargee, installee et demarree sur I'ordinateur de l'utilisateur. Des 
elements sont ajoutes au menu Demarrer et au groupe Ajout/Suppression de programmes dans le Panneau de 
configuration. 

Etant donne que cette strategie depend de la connexion reseau, elle fonctionne de maniere optimale pour les 
applications qui seront deployees pour les utilisateurs qui ont acces a un reseau local ou une connexion Internet 
rapide. 

Installation a partir d'un CD-Rom 

Cette strategie permet de deployer votre application sur un support amovible tel qu'un CD-Rom ou un DVD. Comme 
pour I'option precedente, lorsque l'utilisateur choisit d'installer l'application, cette derniere est installee, lancee et des 
elements sont ajoutes au menu Demarrer et au groupe Ajout/Suppression de programmes dans le Panneau de 
configuration. 

Cette strategie fonctionne mieux dans le cas d'applications deployees sur les ordinateurs d'utilisateurs qui ne 
possedent pas une connectivite reseau persistante ou qui ont des connexions a faible bande passante. L'application 
etant installee a partir d'un support amovible, aucune connexion reseau n'est necessaire pour I'installation ; la 
connectivite reseau est neanmoins necessaire pour les mises a jour de l'application. 

Demarrage de rapplication a partir du Web ou d'un partage reseau 

Cette strategie est similaire a la premiere, sauf que l'application se comporte comme une application Web. Lorsque 
l'utilisateur clique sur un lien d'une page Web (ou double die sur une icone du partage de fichiers), l'application est 
lancee. Lorsque les utilisateurs ferment l'application, cette derniere n'est plus disponible sur leur ordinateur local. 
Aucun element n'est ajoute au menu Demarrer ou au groupe Ajout/Suppression de programmes dans le Panneau de 
configuration. Techniquement, l'application est telechargee et installee dans un cache d'application de I'ordinateur 
local, de la meme fagon qu'une application Web est telechargee vers le cache Web. Comme pour le cache Web, les 
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fichiers sont nettoyes du cache d'application en fin d'utilisation. Toutefois, I'utilisateur a I'impression que I'application 
est executee a partir du Web ou du partage de fichiers. 

Cette strategie est a privilegier pour les applications rarement utilisees. 



3. Les mises a jour de ("application 

ClickOnce peut fournir automatiquement les mises a jour de I'application. Une application ClickOnce lit periodiquement 
son fichier manifeste de deploiement pour verifier si les mises a jour de I'application sont disponibles. Si elle est 
disponible, la nouvelle version de I'application est telechargee et executee. Pour des raisons d'efficacite, seuls les 
fichiers modifies sont telecharges. 

Trois strategies de base sont possibles pour les mises a jour : 

• La verification des mises a jour au demarrage de I'application ; 

• La verification des mises a jour apres le demarrage de I'application (executee dans un thread d'arriere-plan) ; 

• La presentation d'une interface utilisateur destinee aux mises a jour. 

Vous pouvez egalement determiner la frequence de verification des mises a jour effectuee par I'application ou 
configurer une mise a jour obligatoire. Les mises a jour d'application exigent une connexion au reseau. En I'absence 
d'une connexion reseau, I'application s'execute sans verifier les mises a jour, quelle que soit la strategie de mise a jour 
choisie. 

Verification des mises a jour apres le demarrage 

Par defaut, I'application tente de localiser et de lire le fichier manifeste de deploiement en arriere-plan pendant son 
execution. Si une mise a jour est disponible, lors de la prochaine execution, I'utilisateur sera invite a telecharger et a 
installer la mise a jour. 

Cette strategie est tout particulierement adaptee aux connexions reseau a bande passante restreinte ou aux 
applications volumineuses, pouvant necessiter de longs telechargements. 

Verification des mises a jour au demarrage 

Avec cette strategie, I'application tente de localiser et de lire le fichier manifeste de deploiement a chaque lancement. Si 
une mise a jour est disponible, elle sera telechargee et executee ; sinon, la version existante de I'application sera 
executee. 

Cette strategie est bien adaptee aux connexions reseau a large bande passante ; le delai necessaire au lancement de 
I'application peut etre inacceptable sur des connexions a bande passante plus restreinte du fait du telechargement des 
mises a jour. 

Mises a jour obligatoire 

II est parfois souhaitable d'obliger les utilisateurs a executer une version mise a jour de I'application si, par exemple, 
vous avez modifie une ressource qui risque de perturber le fonctionnement de I'ancienne version de I'application. Vous 
pouvez dans ce cas marquer la mise a jour comme etant obligatoire et de ce fait, empecher I'execution d'une version 
plus ancienne de I'application. Cette strategie doit etre associee avec la verification des mises a jour au demarrage. 

Intervalles de mise a jour 

Dans le cadre des mises a jour automatiques vous pouvez egalement specifier la frequence de verification des mises a 
jour. Par exemple, vous pouvez souhaiter une verification a chaque execution de I'application, une fois par semaine ou 
une fois par mois. Si aucune connexion reseau n'est disponible au moment specifie pour la verification, celle-ci est 
effectuee a la prochaine execution de I'application. 

Blocage des mises a jour 

II est egalement possible de faire en sorte que votre application ne verifie jamais les mises a jour. Par exemple, vous 
pouvez deployer une application simple qui ne sera jamais mise a jour tout en beneficiant de la facilite d'installation 
fournie par ClickOnce. 



4. Mise en oeuvre de la publication ClickOnce 
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La publication d'une application avec la technologie ClickOnce est grandement facilitee par un assistant permettant de 
recueillir la majorite des informations necessaires au deploiement. Cet assistant est disponible en choisissant I'option 
Publier du menu contextuel accessible sur le projet a deployer dans I'explorateur de solutions. Certaines options de 
deploiement ne sont cependant pas gerees par cet assistant et doivent etre configurees manuellement via la boite de 
dialogue de proprietes du projet. 

La premiere etape de I'assistant consiste a configurer Templacement ou doit se faire la publication. 



Assistant Publication 



? X 



Ou souhaitez-vous publier I 'application ? 




Specifiez I'emplacement de publication de cette application : 



localhost/telecran 



Parcourir... 



Vous pouvez publier I'application sur un site Web, un serveur FTP ou un chemin d'acces a un 
fichier. 



Exemples : 

Chemin d'acces au disque 

Partage de fichiers : 
5erveur FTP : 

5ite Web : 



c:\deploy\myapplication 

\\server\myapplication 

ftp : //ftp . microsoft . com/myapplication 

http://www.microsoft.com/myapplication 



< Precedent 



5uivant > 



Terminer 



Annuler 



Cet emplacement peut etre 



• Un repertoire de la machine. 



• Un repertoire partage sur une autre machine en indiquant un chemin UNC de la forme suivante \\nom de la 
machine\nom du repertoire. Vous devez avoir I'autorisation d'ecrire sur le partage pour que la publication 
puisse etre realisee. 



• Le serveur Web IIS de la machine sur lequel vous devez avoir au prealable ajoute un repertoire virtuel pour 
accueillir les fichiers. 



• Un serveur ftp pour lequel vous devez fournir les informations de connexion a I'aide de la boite de dialogue 
suivante : 
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Ouvrir !e site Wet 




Systeme de 
fichiers 



Site FTP 

5erveur : 



127.0.0.1 



Port : 



5erveur 115 
local 



21 



Site FTP 



Repertoire : 



Site distant 



0 Mode passif 

0 Connexion anonyme 

Norm d'utilisateur : 



Mot de passe : 



5M 



Ouvrir 



Annuler 



Vous devez indiquer : 

• L'adresse IP ou le nom du serveur ftp. 

• Le numero du port utilise pour contacter le serveur (en general 21). 

• Le repertoire du serveur dans lequel sera effectuee la copie des fichiers. Vous devez avoir I'autorisation 
d'ecriture dans ce repertoire. 

• Si vous etes situe derriere un pare-feu en activant I'option Mode passif. 

• Si vous vous connectez de fagon anonyme ou sinon le nom d'utilisateur et le mot de passe utilises pour la 
connexion. 



La deuxieme etape determine comment les utilisateurs vont installer Tapplication. 
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Assistant Publication 



Comment les utilisateurs installer ont-ils I 'application ? 



O A partir d'un site Web 

5pecif iez I'URL : 



© A partir d'un chemin UNC ou d'un partage de fichiers 
Specifier le chemin d'acces UNC : 



O A partir d'un CD-ROM ou DVD-ROM 



< Precedent 



5uivant > 



SO 




Parcourir... 



Parcourir. 



Terminer 



Annuler 



Les options possibles sont : 

• A partir d'un site Web dont vous indiquez I'URL. 

• A partir d'un partage reseau dont vous specifiez le chemin UNC. Les utilisateurs devront bien sur avoir le droit 
de lire sur le partage. Le droit d'ecriture n'est pas obligatoire et meme fortement deconseille. 



• A partir d'un CD-Rom ou DVD que vous fournirez. La creation de ce support n'est pas realise par I'assistant et 
doit etre effectue par une application de gravure externe. 

L'assistant vous propose ensuite de configurer la strategie de mise a jour. 



Assistant Publication 



Ou I 'application doit-elle verifier la disponibilite de mises a jour ? 



0 L'application va verifier la disponibilite de mises a jour a partir de I'emplacement suivant : 



http : //localhost/Telecran/ 



Parcourir... 



O L'application ne verifiera pas la disponibilite de mises a jour 



< Precedent 



Suivant > 



Terminer 



UK 




Annuler 
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Si vous souhaitez activer les mises a jour, il faut indiquer l'emplacement a partir duquel elles seront obtenues. Cet 
emplacement n'est pas forcement le meme que celui utilise pour Installation. L'ultime etape affiche un resume des 
informations selectionnees et permet de lancer la publication avec le bouton Finish. 



Assistant Publication 



Pret pour la publication ! 

L'Assistant va maintenant publier I'application selon vos choix. 



T)(K 




L'application sera publiee dans : 
http : //portabletg/telecran/ 

Lors de I'installation de cette application sur I'ordinateur client, un raccourci sera ajoute au menu 
Uemarrer. Vous pourrez desinstaller l'application a partir du menu Ajout/Suppression de programmes. 



< Precedent 



5uivant > 



Terminer 



Annuler 



A la fin de 1'installation une page html est ouverte sur l'emplacement utilise pendant la publication permettant le 
lancement de 1'installation ou I'execution de l'application. 



ft Ta Fa cur i -Hwfotd by GadrllEi 



refers 



Tdecra 



les fipni60tf**r«uit^ | fcflflTi»nx chores ; 

+ WrrtcfM Crista t:r 3_! 
t .METPifT»^flrtc.3.5 
S- ccs-oonpDH'rti-Mnt d<cii rstdkis.. veus- pairrcz fr-ce-- fappkatcr-rror^snint. Sron, 



Gi staler 



Les options de deploiement plus specifiques doivent etre configurees via la rubrique Publier des proprietes du projet. 
Cette boite de dialogue reprend les proprietes configurees par I'assistant de publication. 
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tHatef&mra : 



Emplacement de pufcicatkm 



Emplacement du dossier de pubkatbn (site l&jeb,. serve** - Ftp ou chernri d'acces du FicherJ : 



URL dj dd^r d'insr.alatten- {# dff frenfe dc ci-d*MuS) : 



Mode e£ par-an^ec drstallaticn — 

LappSiiatiori est dspa-.ib!e en j gns- inlciuement 

I'applicaUon -est frjalsfrtsrit dsponfrle hers cmn ex ion {accessible depuft 



Ejriftcrs d'opplcation. 



Options, 



Version de pubkatnn 



Pi mpale : :-c :endare : £u Id r 



Reason : 



1 



Les boutons Fichiers d'application, Composants requis, Mises a jour et Options permettent de peaufiner les 
reglages. 

Le bouton Fichiers d'application affiche la boite de dialogue suivante concernant les fichiers constituant I'application. 



Fic fliers ^application 






Norn de fkhler 


EtaJt de la publication 


Groupe de te^chargement 


■ 


Telecran.exe 


Indure (Auto) 


(kequis) 




TeleCren,|Mlb 


Ertfture (Auto) 0 


(Aucun) 




Telecran.xml 


EsocCure (Auto) v 


(Aucun) 




E Af f icher tous les fichiers 



Reinltialiser tout 



OK 



Annuler 



L'etat de la publication de chaque fichier peut etre configure avec trois valeurs differentes : 

• Inclure : le fichier sera disponible pour les utilisateurs sur le support de deploiement. 

• Exclure : le fichier n'est pas recopie sur le support de deploiement. 



• Fichier de donnees : le fichier contient des donnees necessaires au bon fonctionnement de I'application et 

sera inclus dans la publication. Le bouton Composants requisest utilise pour configurer les elements 
necessaires pour le fonctionnement de rapplication. 
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Composants requis 



0 Creer un programme d'installation des composants requis 
Choisir les composants requis a installer : 



□ .NET Framework 2.0 (x36) 






□ VjiBibliotheques Runtime Visual C++ (IA64) 






□ ^pBibliotheques Runtime Visual C++ (x64) 






1 1 ^pBibliotheques Runtime Visual C++ (x86) 






0 ^1 Windows Installer 3.1 






□ .NET Framework 3.0 (x36) 






0^-NET Framework 3.5 






<..:! liii 







Rechercher d'autres composants redistribuables sur Microsoft Update 
Specifier I'emplacement d'installation des composants requis 



® Telecharger les composants requis a partir du site Web du fournisseur de composants 
O Telecharger les composants requis a partir de I'emplacement de mon application 
O Telecharger les composants requis depuis I'emplacement suivant : 



Parcourir... 



OK 



Annuler 



Vous pouvez choisir de creer un programme d'installation pour les composants requis pour le fonctionnement de 
I'application en cochant la case Creer un programme d'installation des composants requis. Les composants 
concernes sont a choisir dans la liste presentee. Vous devez egalement indiquer a partir de quel emplacement ces 
composants seront installes. Trois options sont possibles : 

• a partir du site Web du fournisseur du composant ; 

• a partir du meme emplacement que celui utilise pour installer Tapplication ; 

• a partir de ['emplacement indique. 



La configuration des mises a jour prevue lors de Tutilisation de I'assistant peut etre modifiee par le bouton Mises a 
jour. 
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Mises a jour des applications 



0 L'application doit verifier la disponibilite de mises a jour 



UK 



Choisissez a quel moment l'application doit verifier la disponibilite de mises a jour : 

O Apres |e demarrage de l'application 

Choisissez cette option pour accelerer le demarrage de l'application. Les mises a 
jour ne seront pas installees avant la prochaine execution de l'application. 

® Avant le demarrage de l'application 

Choisissez cette option pour veiller a ce que les utilisateurs connectes au reseau 
utilisent toujours les dernieres mises a jour. 

Specif iez a quelle frequence l'application doit verifier la disponibilite de mises a jour : 

' Verifier a cheque execution de l'application 
Verifier toutes les : 



7 



V 



]ours 



I I Specifier une version minimale requise pour cette application 

Principale : Secondaire : Generer : Revision : 



Emplacement de mise a jour (si different de I'emplacement de publication) : 



Parcourir... 



OK 



Annuler 



La case a cocher L'application doit verifier la disponibilite de mises a jourspecifie que l'application doit verifier la 
disponibilite de mises a jour des son installation. Si vous selectionnez cette option, les autres options deviennent 
disponibles. Elles permettent de choisir le moment ou aura lieu la verification de la disponibilite d'une mise a jour. 
L'option Avant le demarrage de 1'application indique que l'application doit verifie la disponibilite de mises a jour avant 
le demarrage. Cela garantit que les utilisateurs qui sont connectes au reseau disposent toujours de la version la plus 
recente de l'application. Cette option peut ralentir le demarrage de l'application dans le cas ou des mises a jour sont 
disponibles. L'option Apres le demarrage de l'application planifie I'execution de la mise a jour lors du prochain 
redemarrage de l'application. La frequence de verification des mises a jour peut egalement etre indiquee par un 
nombre d'heures, de jours ou de semaines ou bien etre executee a chaque demarrage de l'application. Vous devez 
aussi indiquer I'emplacement a partir duquel les mises a jour sont disponibles si celui-ci est different de I'emplacement 
d 'installation. 



Le dernier bouton va servir a configurer diverses options de deploiement. 
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Options de publication 



Langue de publication : 




(Par defaut) 



v 



Norn de I'editeur : 



Norn du produit : 



URL du support technique : 



Parcourir, 



Page Web de deploiernent : 



publish.htm 



r^i Generer automatiquernent la page Web de deploiernent apres chaque 
' — ' publication 

@ Ouvrir la page Web de deploiernent apres la publication 

I I Bloquer I'activation de I'application via une URL 

@ Utiliser I'extension de fichier ".deploy" 

I I Autoriser le transfert des pararnetres d'URL vers I'application 

I — I Pour les installations depuis un CD-ROMj dernarrer automatiquernent 
' — ' I'installation des I'insertion du CD-ROM 

0 Verifier les fichiers transferes sur un serveur Web 

| Utiliser le manifesto d'application pour les informations d'approbation 



OK 



Annuler 



Les options suivantes sont disponibles : 
Langue de publication 

Specifie la langue (et les pararnetres regionaux) dans laquelle I'application doit etre publiee. 
Nom de I'editeur 

Specifie le nom de I'editeur de I'application. Si cette zone est vide, la valeur de la propriete RegisteredOrganization de 
I'ordinateur sera utilisee. Si cette valeur est nulle, le nom du projet est utilise. 

Nom du produit 

Specifie le nom de produit de I'application. Si le nom de produit est vide, le nom de I'assembly est utilise. 
URL du support technique 

Specifie un site Web qui contient des informations d'assistance pour votre application. La specification de cette URL est 
facultative. Si elle est utilisee, cette URL apparait dans I'entree Ajout/Suppression de programmes pour votre 
application dans le Panneau de configuration de Windows. 

Page Web de deploiernent 

Specifie un nom pour la page Web de deploiernent. Le nom de fichier par defaut est Publish.htm. 
Generer automatiquernent la page Web de deploiernent apres chaque publication 

Si cette option est selectionnee, le processus de publication genere une page Web de deploiernent a chaque 
publication. Cette option n'est disponible que si une Page Web de deploiernent est specifiee. 

Ouvrir la page Web de deploiernent apres la publication 



Si cette option est selectionnee, la page Web de deploiernent generee automatiquernent s'ouvre apres la publication. 
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Bloquer I'activation de I'application via une URL 



Si cette option est desactivee, I'application s'execute automatiquement apres Installation. Si elle est activee, 
I'utilisateur devra demarrer I'application a partir du raccourci de programme dans le Menu Demarrer. 

Utiliser I'extension de fichier ".deploy" 

Si cette option est selectionnee, le fichier de deploiement utilise I'extension .deploy. Certains serveurs Web sont 
configures pour bloquer, par raison de securite, les fichiers qui ne sont pas habituellement presents dans un contenu 
Web. Par exemple, les fichiers portant les extensions suivantes peuvent etre bloques : .dll, .config, .mdf. Les 
applications Windows contiennent generalement des fichiers portant certaines de ces extensions. Si un utilisateur 
essaie d'executer une application ClickOnce qui accede a un fichier bloque sur un serveur Web, une erreur se produit. 
Plutot que de debloquer toutes les extensions de fichier, chaque fichier d'application est publie par defaut avec une 
extension de fichier ".deploy". Si cette option est utilisee, le serveur Web ne doit etre configure que pour debloquer les 
trois extensions de fichier suivantes : 

• .application 

• .manifest 



• .deploy 

Autoriser le transfert des parametres d'URL vers I'application 

Par defaut cette option est desactivee. Si cette option est activee, I'application sera capable d'acceder et de traiter les 
informations de parametre de I'URL. 

Pour les installations depuis un CD-ROM, demarrer automatiquement ('installation des I'insertion du CD-ROM 

Si cette option est selectionnee, elle ajoute un fichier Autorun.inf a la racine du support pour les applications ClickOnce 
qui sont installees via CD-Rom ou DVD-Rom. 

Verifier les fichiers transferes sur un serveur Web 

Si cette option est activee, le processus de publication telecharge chaque fichier pour verifier qu'ils peuvent bien etre 
telecharges. Vous etes informes des fichiers qui ne peuvent pas etre telecharges. 

Utiliser le manifeste d'application pour les informations d'approbation 

Lorsque cette option est selectionnee, vous pouvez signer a nouveau le manifeste de I'application a I'aide d'un 
certificat contenant vos propres coordonnees. 
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